Comment classer des numéros de téléphones

Sub Sortir_les_6()
Dim tablo, resu(), i&, j%, n2&, n1&
With Feuil1 'CodeName de la feuille, à adapter
    tablo = .[A1].CurrentRegion.Resize(, 2)
    ReDim resu(1 To 2 * UBound(tablo), 1 To 2)
    For i = 2 To UBound(tablo) '2 car en-têtes
        For j = 1 To 2 '2 colonnes
            If Left(tablo(i, j), 1) = 6 Then
                n2 = n2 + 1
                resu(n2, 2) = tablo(i, j)
            ElseIf tablo(i, j) <> "" Then
                n1 = n1 + 1
                resu(n1, 1) = tablo(i, j)
            End If
    Next j, i
    '---restitution---
    n1 = IIf(n1 > n2, n1, n2)
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .[A2] 'cellule à adapter
        If n1 Then .Resize(n1, 2) = resu
        .Offset(n1).Resize(Rows.Count - n1 - .Row + 1, 2).ClearContents 'RAZ en dessous
    End With
    With .UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub