Dim Resultat As String
If Range("A1").Hyperlinks.Count = 0 Then
MsgBox "il 'y a pas de lien hypertexte dans la cellule A1"
Else
'Vérifie si le lien (un fichier stocké sur le disque) existe
If Dir(Range("A1").Hyperlinks.Item(1).Address) <> "" Then
Resultat = " Valide dans la cellule A1:"
Else
Resultat = " Non valide dans la cellule A1:"
End If
MsgBox "il y a un lien hypertexte" & Resultat _
& vbLf & Range("A1").Hyperlinks.Item(1).Address
End If