Function Combien(ByVal x As String, deQuoi As String) As Long
Dim n&, i&, s$
x = Replace(x, " ", "")
n = InStr(1, x, deQuoi, vbTextCompare)
If n = 0 Then Exit Function
For i = n - 1 To 1 Step -1
If Not (Mid(x, i, 1) Like "#") Then Exit For Else s = Mid(x, i, 1) & s
Next i
Combien = Val(s)
End Function