Comment attacher un lien au contenu d'une cellule et non pas à la cellule?

Bonjour, j'ai un classeur partagé avec une feuille par adhérent ( aujourd'hui 152) plus 13 autres feuilles.

je crée une liste dynamique des adhérents avec la fonction LIRECLASSEUR moins les 13 feuilles. Je trie par ordre alphabétique. Je crée un lien entre le nom et la feuille correspondante. Si je clique sur "Tartempion" c'est la feuille Tartempion qui s'ouvre. Jusque là tout va bien. Mais si j'ajoute un adhérent donc une feuille, cette feuille engendre un décalage et le fait de cliquer sur Tartempion ouvre la feuille voisine. Avec mes remerciements.

Bonjour Michel,

avec votre fichier, ce serait plus simple pour essayer d'apporter une solution
Voici un code qui permet de lister les onglets d'un classeur dans la colonne A de l'onglet Sommaire (ici pas de tri alphabétique). Macro activée par Bouton sur l'onlet Sommaire

Private Sub BoutonListeOnglet_Click()
    ListeOnglet
End Sub

'lister les feuilles excel
'--------------------------------------------------
'Appel dans Onglet Sommaire
'--------------------------
Sub ListeOnglet()
'Déclare la variable objet Worksheet
Dim ws As Worksheet
Dim i As Integer

'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
    i = 2
    For Each ws In ThisWorkbook.Worksheets
        'Renvoie le nom de chaque feuille
        With Sheets("Sommaire")
            Cells(i, 1) = ws.Name
            Lien = "'" & ws.Name & "'" & "!A1"
            Cells(i, 1).Select
            .Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            Lien, TextToDisplay:=ws.Name
        End With
        i = i + 1
    Next ws
End Sub

Bonjour,
Joins un petit fichier pour une aide adaptée du forum.
Cdlt.

Bonjour, un grand merci pour la macro. ça fonctionne très bien avec mon classeur.