Salut Willkaa,
Voici un des codes que je t'avais proposés sur le précédent post. Il est à tester pour ce problème (et à adapter au tableau en question). En tout cas, il est censé fonctionner pour les feuilles AV-XXX du nouveau cahier qu'on a vu ensemble.
Sub AjouterLiens()
Call HypertextesRafale(Range("nomdutableau")) '<<< ADAPTER NOM !
End sub
Sub HypertextesRafale(Tableau As Range)
Dim i%
For i = 1 To Tableau.Rows.Count 'pour chaque ligne du tableau
If Not Tableau(i, 1).Value = "" Then 'si cellule en A (col avec noms des feuilles) n'est pas vide
Tableau(i, 9).Hyperlinks.Add _ 'ajoute lien en colonne I (ADAPTER SI BESOIN)
anchor:=Tableau(i, 9), _ 'ancre de l'hypertexte en colonne I (à adapter)
Address:="", _
SubAddress:="'" & Tableau(i, 1).Value & "'!A1", _ 'adresse ciblée (cellule A1 de la feuille dont le nom est en A)
ScreenTip:="Activez la feuille " & Tableau(i, 1).Value, _ 'msg avec nom feuille
TextToDisplay:="Accès à la feuille : " & Tableau(i, 3).Value 'descriptif de la feuille se trouvant en col C
End If
Next i
End Sub
Dis-moi si tu as des questions...
A plus,