Identifier une cellule comportant un lien hypertexte

Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
 Set FL1 = Worksheets("Feuil1")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
  'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("A1:E15") 'a adapter la plage de recherche
        For Each Cell In Plage
          If Cell.Hyperlinks.Count > 0 Then
     MsgBox Cell.Address 'adresse de la cellule qui contient le lien
     MsgBox Cell.Value 'Valeur de la cellule lue
     MsgBox Cell.Hyperlinks(1).Address 'adresse du lien
    End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub