Bah c'est dans le cas (débile) où l'on supprime la cellule C2 en décalant vers le haut !!!merci, mais y'a encore des erreurs, le lien "Bossler" me renvoi sur "Cuvelier" !!!?
=LIEN_HYPERTEXTE(INDEX(A:A;LIGNE())&" "&GAUCHE(INDEX(B:B;LIGNE());2)&"."&"'!A1";INDEX(A:A;LIGNE())&" "&GAUCHE(INDEX(B:B;LIGNE());2)&".")
=LIEN_HYPERTEXTE("#'"&INDEX(A:A;LIGNE())&" "&GAUCHE(INDEX(B:B;LIGNE());2)&"."&"'!A1";INDEX(A:A;LIGNE())&" "&GAUCHE(INDEX(B:B;LIGNE());2)&".")
Sub Liens()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.Range("D7:D" & ActiveSheet.Range("D65536").End(xlUp).Row)
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:= _
"'" & c.Value & "'!A1"
Next c
Columns(58).Font.Size = 7
Columns(58).Font.ColorIndex = 0
Application.ScreenUpdating = True
End Sub