Lien Hyp vers des feuilles à noms varibles

Bonjour à tous,

Je souhaite recopier tous le nom de mes feuille dans la colonne A de la première feuille, j'utilise le code ci dessous qui fonctionne très bien :

For Each sh In Sheets
i = i + 1
Cells(i, 1) = sh.Name
Next

J'aimerai ensuite créer des liens hypertextes qui me permettent en cliquant sur chaque nom de feuille dans la colonne A de la feuille 1 d'aller directement à l'onglet correspondant, j'ai essayé avec ça mais ca ne fonctionne pas :

Sub lienhypertexte()
For Each sh In Sheets
i = i + 1
Cells(i, 1) = sh.Name
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "sh.Name!A1", TextToDisplay:="sh.Name"
Next
End Sub

Je ne sais pas comment mettre le nom des feuilles sans utiliser sh.Name!!

Merci d'avance

Bill

PS : je joint le fichier

Bonjour

A voir

Sub lienhypertexte()

  ' On commence à 2 car ce n'est pas la peine de mettre
  ' Un lien sur la 1ère feuille pour aller sur la 1ère feuille
  For i = 2 To Sheets.Count
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
                              "'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
  Next

End Sub

Trop fort! Merci Banzai!