Lien hypertexte

Bonjour,

Je vous demande votre aide pour une macro (Au départ bidon) car je n'en finis pas.
Je n'ai pas de grande connaissance en VBA, juste les bases.

J'ai créé une petite macro qui me permettrait, à l'aide d'une feuille "Menu", de rapatrier le nom de chaque feuille existante du classeur.

Jusque la tout va bien. J'y mets ensuite des liens hypertextes vers les feuilles MANUELLEMENT. Tout fonctionne bien.

Seulement, si mon chef rajoute une feuille, je veux qu'elle s'affiche dans le menu, Respectant l'ordre des feuilles. Tout va bien jusqu'ici. Seul problème, mes liens hypertextes restent fixes sur la cellule, ce qui fait que le lien hypertexte ne correspond plus à la bonne feuille.

Voici le code :

Sub menu()

Dim x As Double, Feuille As Worksheet, Lder As Double, Cell As Range
x = 5
Sheets("Menu").Select
For Each Feuille In ActiveWorkbook.Sheets
For Each Cell In Range("Liste")
If Feuille.Name = Cell Then Exit For
If Feuille.Name <> "Original" And Feuille.Name <> "Menu" Then
Cells(x, 6) = Feuille.Name
End If
'Selection.Insert Shift:=xlDown
Next
x = x + 1
Next
End Sub

Un grand merci à tout ceux qui m'aideront !