Bonsoir JYB
Pour afficher le nom de l'onglet de la feuille "Feuil1" dans la cellule "A1" coder :
Range("A1").Value=Sheets("Feuil1").Name
Pour afficher le nom de l'onglet de la 1ere Feuille dans la cellule "A1" coder :
Range("A1").Value=Sheets(1).Name
Pour afficher le nom de l'onglet de la 3ème Feuille dans la cellule "A1" coder :
Range("A1").Value=Sheets(3).Name
Pour afficher le nom de l'onglet de la dernière Feuille dans la cellule "A1" coder :
Range("A1").Value=Sheets(Sheets.Count).Name
Et ainsi de suite ....
Cordialement.
Omicron.