XL 2013 Lien téléphone pour appeler

Sub Macro1()
    fin = Range("D" & Rows.Count).End(xlUp).Row
    For i = 2 To fin
        numéro = Range("D" & i)
        Range("D" & i) = "=HYPERLINK(CONCATENATE(""sip:""," & numéro & "))"
    Next i
End Sub

Sub Macro1()
Dim tablo() As Variant

fin = Range("D" & Rows.Count).End(xlUp).Row
tablo = Range("D2:D" & fin).Value

For i = LBound(tablo, 1) To UBound(tablo, 1)
    tablo(i, 1) = "=HYPERLINK(CONCATENATE(""sip:""," & tablo(i, 1) & "))"
Next i
Range("D2:D" & fin) = tablo
End Sub

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

Private Sub Worksheet_Change(ByVal R As Range)
Dim tablo(), i&, x$
Set R = Intersect(R, [D:D], UsedRange)
If R Is Nothing Then Exit Sub
If FilterMode Then ShowAllData 'si la feuille est filtrée
Application.EnableEvents = False
For Each R In R.Areas 'si entrées multiples
    If R.Count = 1 Then Set R = R.Resize(, 2) 'au moins 2 cellules
    tablo = R.Formula
    For i = 1 To UBound(tablo)
        x = tablo(i, 1)
        If IsNumeric(x) Then tablo(i, 1) = "=HYPERLINK(""sip:""&" & x & "," & x & ")"
    Next
    R = tablo
Next
Application.EnableEvents = True
End Sub