Je souhaite localiser l'adresse de liens hypertextes.

Bonjour a tous,

Par le bout de code ci dessous, je rassemble dans un (nouvel) onglet,
toutes les adresse existantes sur une (longue) feuille Excel. Le
probleme c'est que je souhaite aussi localiser son adresse (absolue)
et a partir d'"ICI", j'avoue que je peine un peu. :-((
-Est-ce que quelque veut bien me mettre sur la voie, :-)

----------------------------------------------------------------------------------
Dim Z As Range
Dim N, I As IntegerSelection.CurrentRegion.Select
Set Z = Selection
N = Z.Hyperlinks.Count
Set FeuilFormulas = ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "FeuilFormulas "
FeuilFormulas .Range("A1") = "Cellule"
FeuilFormulas .Range("B1") = "Lien"
FeuilFormulas .Range("C1") = "Contenu"
FeuilFormulas .Range("D1") = "Adresse"
Ligne= 2
If N > 0 Then
For I = N To 1 Step -1
If InStr(Z.Hyperlinks(I).Address, "@") <> 0 Then GoTo Suivre

With FeuilFormulas
Cells(Ligne, 2) = Z.Hyperlinks(I).ScreenTip
Cells(Ligne, 1) = " " & Z.Hyperlinks(I).Name
Cells(Ligne, 3) = Z.Hyperlinks(I).Address()
' Cells(Ligne, 4) = Z.Range.Cells.Address() <-- ICI
Ligne= Ligne+ 1
End With
Suivre:
Next I
End If
FeuilFormulas .Columns("A:D").AutoFit
ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True
End Sub

----------------------------------------------------------------------------------
Je vous remercie d'avance pour votre aide,
Cordialement,
Emile