Sub metvaleur()
For lig = 2 To [A65000].End(3).Row
y = "": tt = ""
tx = Cells(lig, 1)
x = Len(tx)
For k = x To 1 Step -1
y = Mid(tx, k, 1)
If y = "," Or IsNumeric(y) Then tt = y & tt: ok = True
If ok And y = " " Then ok = False: Exit For
Next
Cells(lig, 2) = CDbl(tt)
Next
End Sub