Bonjour à tous
Si ce n'est pas trop tard et si j'ai bien compris !
Peux tu essayer cela :
Sub essai()
Dim texte As String ' ou Integer ou .......
' dans Feuil1 la cellule nommée "FeuilProduit" contient le nom d'une feuille
' texte = renvoie la saisie qui se trouve dans la cellule A1 de la feuille saisie dans la cellule "FeuilProduit"
texte = Sheets(Sheets("Feuil1").Range("FeuilProduit").Value).Range("A1").Value
End Sub
Eric