Sub Liens()
Dim P As Range, tablo(), i&, x$
With Feuil1 'CodeName, à adapter
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
Set P = Intersect(.[D:D], .UsedRange.EntireRow)
End With
If P.Count = 1 Then Set P = P.Resize(2) 'sécurité, au moins 2 cellules
tablo = P.Formula
For i = 1 To UBound(tablo)
x = CStr(tablo(i, 1))
If IsNumeric(x) Then tablo(i, 1) = "=HYPERLINK(""sip:""&" & x & "," & x & ")"
Next
P = tablo
End Sub