Function Quantite(ByVal x As String, deQuoi As String)
Dim n&, i&, s$, v, res
x = Application.Trim(x)
n = InStr(1, x, deQuoi, vbTextCompare)
If n = 0 Then Exit Function
x = Trim(Left(x, n - 1))
On Error Resume Next
For i = 1 To Len(x)
v = Empty
s = Replace(Right(x, i), ".", ","): v = CDbl(0 & s)
If Not IsEmpty(v) Then res = v Else Exit For
Next i
Quantite = res
End Function