Option Explicit
Function NumCheque(NumeroComplet As String) As Long
Dim PosCar As Long
Dim Numero As Long
Dim Car As String
For PosCar = 1 To Len(NumeroComplet)
Car = Mid(NumeroComplet, PosCar, 1)
If IsNumeric(Car) Then
Numero = Numero & Car
End If
Next PosCar
NumCheque = CLng(Numero)
End Function