Enlever des lettre de serie de chiffre

Function extrait_nbre(ByRef texto As String) As Double
    Dim reg As Object
    Dim extraction As Object

   ' instancie
    Set reg = CreateObject("vbscript.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