Option Explicit ' @Thierry sur XLD
Sub Number_Finder()
Dim Plage As Range, Cell As Range
Dim Starting As Integer, i As Integer
Dim TmpNumber As String
Range("B2:B5000").ClearContents
With Feuil1
Set Plage = .Range(.Range("A2"), .Range("A5000").End(xlUp))
End With
For Each Cell In Plage
Starting = InStr(2, Cell, " ")
If Starting <> 0 Then
For i = Starting To Len(Cell)
If IsNumeric(Mid(Cell, i, 1)) Then
TmpNumber = TmpNumber & Mid(Cell, i, 1)
End If
Next
Cell.Offset(0, 1) = Val(TmpNumber)
End If
TmpNumber = ""
Next Cell
End Sub