Sub Lien()
Dim NbLignes As Long
Dim i As Long
With ThisWorkbook.Worksheets("Feuil1")
'Défiltrer pour ne pas fausser le xlUp avec des lignes de fin filtrées
If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData
NbLignes = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To NbLignes
.Cells(i, 2).Hyperlinks.Delete
.Hyperlinks.Add Anchor:=.Cells(i, 2), Address:="", SubAddress:= _
"Feuil5!" & .Cells(1, i - 1).Address
Next i
End With
With ThisWorkbook.Worksheets("Feuil5")
For i = 2 To NbLignes
.Cells(1, i - 1).Hyperlinks.Delete
.Hyperlinks.Add Anchor:=.Cells(1, i - 1), Address:="", SubAddress:= _
"Feuil1!" & .Cells(i, 2).Address
With .Cells(1, i - 1).Font
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Next i
End With
End Sub