Function SOMMECHIFFRE(ByVal x As Range) As Double
Dim rex As Object 'credit: Doug Glancy/25612
Dim xMh As Object
Dim xMhs As Object, NOMBRES As Double
Set rex = CreateObject("vbScript.RegExp")
With rex
.Global = True: .Pattern = "\d+"
If .Test(x.Text) Then
Set xMhs = .Execute(x)
For Each xMh In xMhs
If IsNumeric(Replace(xMh, ",", "")) Then
NOMBRES = NOMBRES + Replace(xMh, ",", "")
End If
Next xMh
End If
End With
SOMMECHIFFRE = NOMBRES
End Function