Sub Lien()
Dim c As Range, url
Set c = ActiveCell
If c.Formula Like "=HYPERLINK(*)" Then url = Split(c.Formula, """")(1)
MsgBox url 'pour tester
End Sub
Sub Lien()
Dim c As Range, f$, p%
Set c = ActiveCell
f = c.Formula
If f Like "=HYPERLINK(*)" Then
p = InStr(f, ",")
If p = 0 Then p = InStr(f, ")")
url = Evaluate(Mid(f, 12, p - 12))
MsgBox url 'pour tester
End If
End Sub