Re Flav,
Pour récupérer les noms des feuilles, on peut utiliser une boucle, par exemple :
Sub NomsDesFeuilles()
'Affiche les noms des feuilles à partir de la cellule active
Dim WS As Worksheet, I As Integer
For Each WS In Sheets
ActiveCell.Offset(I, 0) = WS.Name
I = I + 1
Next
End Sub
Cette macro parcourt le classeur et inscrit le nom de chaque feuille.
Pour changer le nom de la feuille active, tu peux le faire comme ceci :
Sub RenommerFeuille()
Dim NouveauNom As String
NouveauNom = InputBox("Nouveau Nom :", "Renommer", ActiveSheet.Name)
If NouveauNom <> "" Then
ActiveSheet.Name = NouveauNom
End If
End Sub
Peut-être qu'une de ces pistes pourra te mettre sur la voie...
A+
Horatio