bonsoir Resplaf
la macro ci dessous extrait les liens hypertextes de la colonne A et les affiche dans la colonne B
Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub
bonne soiree
michel