Extraire des caractères numériques d’une cellule

Option Explicit
Dim chaine As String
Dim ligne As Long
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne de données
chaine = Target.Value
ligne = Target.Row
If chaine = "" Then Exit Sub
extraireValeursNumeriques_DansChaine
End If
End Sub
'https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-P
Sub extraireValeursNumeriques_DansChaine()
    Dim i As Byte, Nb As Byte
    Dim Cible As String, Resultat As String
    Dim Nombre As Double
    
    Cible = chaine
    'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
    'virgules par des points
    Cible = Replace(Cible, ",", ".")
    'Pour gérer deux nombres qui se suivent: remplacement des espaces
    'par un caractère Alpha
    Cible = Replace(Cible, " ", "x")
    
    For i = 1 To Len(Cible)
        If IsNumeric(Mid(Cible, i, 1)) Then
        Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
        Nb = Nb + 1
        Resultat = Resultat & Nombre & ", "  'vbLf
        i = i + Len(Str(Nombre)) - 1
        End If
    Next
    Range("B" & ligne).Value = Left(Resultat, Len(Resultat) - 2)'adapter la colonne de reception
End Sub