Créer un index avec nom de feuilles d'un dossier

Bonjour à tous,

J'ai un dossier en excel avec une trentaine de feuilles.

Je voudrais savoir si il est possible d'avoir une macro qui crée une nouvelle feuille index avec dans une colonne le nom des feuilles de ce dossier et sur chaque nom (ou cellule), un lien hyper texte qui me renverrais dans la feuille désigné a la case A1 par exemple.

Merci de votre aide,

Patrick,

Bonjour,

Si j'ai bien compris, essaie ainsi :

Sub Macro1()
Dim Sh As Worksheet, ShIndex As Worksheet
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
End With
On Error Resume Next
Set ShIndex = Sheets("Index")
ShIndex.Delete
On Error GoTo 0
Sheets.Add.Name = "Index"
Set ShIndex = Sheets("Index")
For Each Sh In Sheets
    With ShIndex
        If Sh.Name <> .Name Then
            .Hyperlinks.Add Anchor:=.Cells(Rows.Count, 1).End(xlUp)(2), Address:="", SubAddress:= _
                Sh.Name & "!A1", TextToDisplay:=Sh.Name
        End If

    End With
Next Sh
ShIndex.Rows(1).Delete
End Sub

Bonne soirée

C'est exactement ce que je voulais.

Un tout grand merci à vous.