Uniformiser les numero de tel dans une colonne

=SUBSTITUE(SUBSTITUE(SUBSTITUE(C2;" ";"");CAR(160);"");",";"")*1

Sub Epurer()
Dim tablo, i As Long, t As String, j As Integer
tablo = Range("C2", [C65536].End(xlUp))
For i = 1 To UBound(tablo)
  t = tablo(i, 1)
  For j = Len(t) To 1 Step -1
    If Not IsNumeric(Mid(t, j, 1)) _
      Then t = Application.Replace(t, j, 1, "")
  Next
  If t <> "" Then tablo(i, 1) = Val(t)
Next
[C:C].NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
[C2].Resize(UBound(tablo)) = tablo
End Sub

="0"&DROITE(SUBSTITUE(SUBSTITUE(SUBSTITUE(C2;" ";"");CAR(160);"");",";"");9)

Sub test()

Dim Tabl()
Tabl = Range("C2:C523")
ReDim Preserve Tabl(1 To UBound(Tabl), 1 To 2)

' Suppression des espaces

For i = 1 To UBound(Tabl)
If Tabl(i, 1) Like "*,*" Then
T = Replace(CStr(Tabl(i, 1)), ",", "")
Tabl(i, 2) = T
Else
T = Replace(CDbl(Tabl(i, 1)), " ", "")
Tabl(i, 2) = T
End If
T = Empty
Next i

' Zéro devant le numéro
For i = 1 To UBound(Tabl)
If Len(Tabl(i, 2)) = 9 Then
Tabl(i, 2) = CStr("'0" & Tabl(i, 2))
ElseIf Len(Tabl(i, 2)) = 10 Then
Tabl(i, 2) = CStr("'" & Tabl(i, 2))
Else
Tabl(i, 2) = "Vérifier L'entrée"
End If
T = Empty
Next i

Range("D2").Resize(UBound(Tabl, 1)) = Application.Index(Tabl, , 2)

End Sub