Private Sub lblLien_Click()
If lblLien.Caption <> "" Then
With Sheets("Feuil1")
For l = 2 To .Range("B65536").End(xlUp).Row
If .Cells(l, 2).Value = lblLien.Caption Then
LIEN = ""
On Error Resume Next
LIEN = .Cells(l, 2).Hyperlinks(1).Address
ThisWorkbook.FollowHyperlink LIEN
Exit For
End If
Next l
End With
End If
End Sub