j ai trouvé une solution qui consiste a recupere la valeur chercher
et de selectione la cellule qui y correspond et verifieé si il y a un lien hypertext ou pas pour aller sur le lien
[D14].Offset(ListBox1.ListIndex, 0).Select
If ActiveCell.Hyperlinks.Count > 0 Then
ActiveCell.Hyperlinks(1).Follow
Else
MsgBox "Il n'y a pas de lien"
Exit Sub
End If
voila la fonction que je me suis faite pour resoudre mon probleme