Sub Resultat()
Dim tablo, i&, x$, j%, y$
tablo = [A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
x = tablo(i, 1)
j = InStr(x, ",")
If j Then If IsNumeric(Left(x, j - 1)) Then x = Mid(x, j + 1)
For j = 1 To Len(x)
y = UCase(Mid(x, j, 1))
If y Like "[A-Z]" Or InStr("ÀÁÂÃÄÅÒÓÔÕÖØÈÉÊËÌÍÎÏÙÚÛÜÑÇ", y) Then Exit For
Next j
tablo(i, 1) = Trim(Left(x, j - 1))
tablo(i, 2) = Mid(x, j)
Next i
'---restitution---
With Sheets("Résultat")
.[A1].Resize(i - 1, 2) = tablo
.[A1].Offset(.Rows.Count - i + 1, 2).ClearContents 'RAZ en dessous
.Columns.AutoFit 'ajustement largeurs
.Activate 'facultatif
End With
End Sub