yo

Je cherche a trouver les liens hypertextes au sein de ma feuille de calcul. Seulement, je n'arrive pas a les isoler...
Le code qui suit est ce que j'ai mis en place pour ma recherche et bien que je pense que le contenu soit bon, je ne trouve pas ces fameux liens.
Une erreur probablement flagrante m'echappe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub testHyperLinks()
    Dim h As Hyperlink
    MsgBox "in"
    For Each h In ActiveSheet.Hyperlinks
        ' h.Follow
        MsgBox "h.Address: " & h.Address
    Next h
End Sub
On me situe une erreur dans la ligne ou debute ma boucle.

Merci.