Pourquoi ça m'écrit ça sur les 4ères lignes de la colonne A ?
a1 = 'Feuil4'
a2 = 'accueil'
a3 = 'Feuil2'
a4 = 'Feuil3'mais c'est ce que tu as demandé de faire grace au code suivant
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
Next i
cell(1,1) contiendra le nom de la feuille 1
cell(2,1) contiendra le nom de la feuille 2
etc ... jusqu'à ce qu'il n'y ait plus de feuilles