comment vérifier si une cellule contient un lien hypertexte

Sub test()
For Each C In Sheets("Feuil1").Hyperlinks
     MsgBox C.Range.Address, 64, "Une cellule trouvée"
Next C
End Sub

Sub a()
Dim c As Range, p As Range
    For Each c In Selection
        If c.Hyperlinks.Count = 1 Then
            If p Is Nothing Then
                Set p = c
            Else
                Set p = Application.Union(p, c)
            End If
        End If
    Next c
MsgBox p.Address
End Sub

Sub b()
Dim c, p As Range
    For Each c In ActiveSheet.Hyperlinks
            If p Is Nothing Then
                Set p = Range(c.Range.Address)
            Else
                Set p = Application.Union(p, Range(c.Range.Address))
            End If
    Next c
MsgBox p.Address
End Sub

Sub Test2()
Dim C As Hyperlink, p As Range
    For Each C In ActiveSheet.Hyperlinks
        Set p = Union(Range(C.Range.Address), IIf(p Is Nothing, Range(C.Range.Address), p))
    Next C
MsgBox p.Address
End Sub

Sub Test3()
Dim C As Hyperlink, p As Range
    For Each C In ActiveSheet.Hyperlinks
        Set p = Union(Range(C.Range.Address), Switch(p Is Nothing, Range(C.Range.Address), Not p Is Nothing, p))
    Next C
MsgBox p.Address
End Sub

Sub Test4()
Dim C As Hyperlink, a$
    For Each C In ActiveSheet.Hyperlinks
       a = a & C.Range.Address & ","
    Next C
'MsgBox Range(Left(a, Len(a) - 1)).Address
'Si il faut vraiment sélectionner ;o)
Range(Left(a, Len(a) - 1)).Select
End Sub