Je vous remercie, mais j'ai trouvé ma réponse à travers la masse d'înformation du forum. On peut remercier michel !!
Je la ré-écrit au-cas-où cela interesserait quelqu'un (il s'agit d'une macro):
Sub CreerTableMatiere()
Dim I As Byte, J As Byte
Dim Val As String
ActiveWorkbook.Sheets.Add Before:=Worksheets(1) 'ajout nouvelle feuille
ActiveSheet.Name = "Table des matières" 'nommer la nouvelle feuille
For I = 1 To Sheets.Count 'boucler sur les feuilles du classeur
If Not ActiveSheet.Name = Sheets(I).Name Then
Val = "'" & Sheets(I).Name & "'!A1"
J = J + 1
ActiveSheet.Cells(J, 1) = J 'indexer la liste des feuilles
ActiveSheet.Hyperlinks.Add Anchor:=Cells(J, 2), Address:="", SubAddress:=Val 'creer un lien
ActiveSheet.Cells(J, 2).Hyperlinks(1).Range = Sheets(I).Name 'insérer texte dans la cellule
End If
Next I
End Sub
Merci encore à michel, et longue vie à XLD