Sub SuivreLien()
Dim c As Range, f$, n%
Set c = [A1] 'à adapter
f = c.Formula
If f Like "=HYPERLINK(*" Then
n = InStr(f, "(") + 1
f = Evaluate(Mid(f, n, InStrRev(f, ",") - n))
ThisWorkbook.FollowHyperlink f
If InStr(f, "#") Then Application.Goto Evaluate(Split(f, "#")(1))
End If
End Sub