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
Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=264