Dissocier les lettres.

 Option Explicit
 
 ' la bibliothèque Microsoft VBSCRIPT REGULAR EXPRESSIONS 5.5 doit être activée

 'Michel_M mai 2006
 
 Function extrait_nbre(ByRef texto As String) 'As Double
    Dim reg As VBScript_RegExp_55.regexp
    Dim digit As VBScript_RegExp_55.Match
    Dim extraction As VBScript_RegExp_55.MatchCollection

   ' instancie
    Set reg = New VBScript_RegExp_55.regexp
    
    '  travaille sur toute la cellule
    reg.Global = True
    '  définit le modèle (caractères "digitaux" à N chiffres)
    reg.Pattern = "(\d?\d?\d)|(,)"
    
    ' éxécute l'extraction svt modèle (collection des digits...)
    Set extraction = reg.Execute(texto)
    ' concaténète les membres de la collection "extraction"
    For Each digit In extraction
        extrait_nbre = extrait_nbre & (digit.Value)
    Next digit
    
    Set extraction = Nothing
    Set reg = Nothing
    
End Function
Function enleve_nbre(ByRef texto As String) As String
 
    Dim reg As VBScript_RegExp_55.regexp
    Dim lettre As VBScript_RegExp_55.Match
    Dim extraction As VBScript_RegExp_55.MatchCollection

   ' instancie
    Set reg = New VBScript_RegExp_55.regexp
    
    '  travaille sur toute la cellule
    reg.Global = True
    '  définit le modèle (complémentaire au chiffres )
   reg.Pattern = "(\D)"
    
    ' éxécute l'extraction svt modèle (collection des lettres)
    Set extraction = reg.Execute(texto)
    ' concaténète les membres de la collection "extraction"
    For Each lettre In extraction
        enleve_nbre = enleve_nbre & (lettre.Value)
    Next lettre
    
    Set extraction = Nothing
    Set reg = Nothing
End Function

Sub test()
Dim i As Byte, carnum As String, caralpha As String
For i = 1 To Len(Range("a1").Value)
    If IsNumeric(Mid(Range("A1").Value, i, 1)) Then
        carnum = carnum & Mid(Range("A1").Value, i, 1)
    Else
        caralpha = caralpha & Mid(Range("A1").Value, i, 1)
    End If
Next i
End Sub