Sub Traduit()
Dim DerLig As Integer, c As Integer, N As Integer, Separateur As Variant, tablo
DerLig = Range("A65500").End(xlUp).Row
For i = 1 To DerLig ' pour toutes les lignesd
chaine = Trim(Cells(i, 1)) ' extrait la chaine à traiter
For c = 1 To Len(chaine) ' pour tous les caractères
If Not IsNumeric(Mid(chaine, c, 1)) Then ' recherche le premier non numérique
Separateur = Mid(chaine, c, 1) ' et le considère comme séparateur
Exit For
End If
Next c
tablo = Split(chaine, Separateur) ' on sépare la chaine avec ce séparateur
For N = 0 To UBound(tablo) ' et on range chaque nombre
Cells(i, N + 2) = tablo(N) ' dans les colonnes suivantes
Next N
Next i
End Sub