bonjour
voilà une manière de faire.
Sub h()
Sheets.Add before:=Sheets(1)
With ActiveSheet
.Name = "Liste des Feuilles"
[A1] = "Liste des Feuilles"
For i = 2 To ActiveWorkbook.Sheets.Count
Cells(i + 1, 1).Value = Sheets(i).Name
'ici tu pourrais envisager de créer des liens hypertextes avec la méthode Add appliquée à l'objet hyperlinks
'pour plus d'infos cherche dans les anciens messages ou réferre toi à l'aide
Next i
End With
End Sub
la feuille crée est déplacée en première position, son index est donc 1.
la boucle for s'incrémente donc à partir de la feuille en position 2
bye