Sub Trier()
Dim Chaine As String
Dim ChaineChiffre As String
Dim ChaineLettre As String
Dim A As String
Dim I As Integer
Chaine = "1m4m0m8a4m"
For I = 1 To Len(Chaine)
A = Mid(Chaine, I, 1)
If A Like "[0-9]" Then
ChaineChiffre = ChaineChiffre & A
Else
ChaineLettre = ChaineLettre & A
End If
Next I
MsgBox "Les chiffres sont : " & ChaineChiffre & vbCrLf & "Les lettres sont : " & ChaineLettre
End Sub