Sub Traitement()
Dim Chaine As String
Dim L As Long
With Sheets('Feuil1')
For L = 3 To .Range('D65536').End(xlUp).Row
Chaine = .Cells(L, 4).Text
Chaine = Mid(Chaine, InStrRev(Chaine, ' ', InStrRev(Chaine, ' 0.00 ') - 1) + 1)
.Cells(L, 5).Value = IIf(Val(Chaine) > 0, Val(Chaine), '')
Next L
End With
End Sub