Salut,
Désolé je sais que la réponse est un peu tardive mais je lisais les anciens messages sans réponses et je suis tombé sur le tien.
Le nom de la feuille courante s'appelle activesheet.name.

J'espère que c'est pas trop tard et que ma réponse correspond à ta question.

;-)
~ ~ Fada ~ ~ : Member of Star!alco

ça peu t'aider
http://www.commentcamarche.net/forum/affich-424613-VBA-Liste­r-toute-les-feuilles-dans-une-combo

ça pour lister les noms de feuilles dans une zone de liste modifiable :

Sub UserForm_Initialize()
For i = 1 To ThisWorkbook.Sheets.Count
ComboBox1.AddItem (ThisWorkbook.Sheets(i).Name)
Next i
End Sub

pour lister les noms de feuilles dans les cellules A1 jusqu'à A(nombre de feuilles)

Sub noms_de_feuilles()
For i = 1 To ThisWorkbook.Sheets.Count
Cells(i, 1).Activate
Cells(i, 1).Value = ThisWorkbook.Sheets(i).Name
Cells(i + 1, 1).Activate
Next i
End Sub
évidement tu peux choisir la cellule de votre choix pour commenser le listing des feuilles

Pardon il y a une petite erreur , le deuxième listing est :

pour lister les noms de feuilles dans les cellules A1 jusqu'à A(nombre de feuilles)

Sub noms_de_feuilles()
For i = 1 To ThisWorkbook.Sheets.Count
Cells(i, 1).Activate
Cells(i, 1).Value = ThisWorkbook.Sheets(i).Name
Next i
End Sub

Bjr a tous je cherhce des
photos de mohanad