Boucle Hyperlinks dirige vers feuilles VBA

Bonjour,

Je souhaiterai dans mon fichier, modifier les liens hypertextes pour les rendre en dynamique. C'est-à-dire que ces liens hypertexts renvoient à l'onglet qui lui dépend du nom de la cellule. Pour l'instant, ces liens hypertexts sont en dure et j'aimerais qu'elles puissent nous diriger directement vers la feuille en question dans le cas ou les cellules changent de noms.

Merci beaucoup par avance,

Bonjour,
Un exemple à adapter.
la liste des feuilles et la création des liens hypertextes sont réinitialisées l'activation de la feuille Accueil.
Cdlt.

Private Sub Worksheet_Activate()
Dim ws As Worksheet, lRow As Long: lRow = 2
    Me.Cells(2, 2).CurrentRegion.ClearContents
    For Each ws In ActiveWorkbook.Worksheets
        Select Case ws.Name
            Case "ACCUEIL":
            Case Else:
                With Me
                    .Cells(lRow, 2).Value2 = ws.Name
                    .Hyperlinks.Add _
                            Anchor:=.Cells(lRow, 2), _
                            Address:="", _
                            SubAddress:="'" & .Cells(lRow, 2).Value2 & "'" & "!A1"
                    lRow = lRow + 1
                End With
        End Select
    Next ws
End Sub