Sub Extraire()
Dim tablo, i&, t
tablo = Range("A1:A2", Range("A" & Rows.Count).End(xlUp))
For i = 1 To UBound(tablo)
t = Replace(LCase(LTrim(tablo(i, 1))), "o", 0)
If IsNumeric(Left(t, 1)) Then tablo(i, 1) = Int(Val(t)) Else tablo(i, 1) = ""
Next
[B:B].ClearContents 'RAZ
[B1].Resize(UBound(tablo)) = tablo
End Sub