Sub extract_url()
Dim rng As Range
Dim row As Range
Dim cell As Range
Dim url As String
Set rng = Selection
For Each cell In rng
url = cell.Hyperlinks(1).Address
cell.Offset(0, 1) = url
' cell.Hyperlinks(1).Address.Copy cel.Offset(0, 1)
Next cell
End Sub
Function cellule_url(cel As Range)
Application.Volatile
cellule_url = cel.Hyperlinks(1).Address
End Function