VBA, recherche d'une adresse d'une chaine de caractère partiellement variable

Sub Nombres_de_A_extraire_vers_B()
'code de MichelXld (merci !)
Dim i As Byte, j As Byte
Dim Cell As Range
Dim Cible As String
Dim Nombre As Double, Total As Double

For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
Cible = Cell
j = 0
i = 0
Cible = Application.Substitute(Cible, ",", ".")
Cible = Application.Substitute(Cible, " ", "x")
For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
j = j + 1
Cell.Offset(0, j) = Val(Mid(Cible, i, Len(Cible) - i + 1))
i = i + Len(Str(Cell.Offset(0, j))) - 1
End If

Next i
Next Cell

End Sub