Function Compte(N)
Dim Chaine$, i%, T
Chaine = ""
For i = 1 To Len(N)
If Not IsNumeric(Mid(N, i, 1)) Then
Chaine = Chaine & " "
Else
Chaine = Chaine & Mid(N, i, 1)
End If
Next i
T = Split(Chaine, " ")
For i = LBound(T) To UBound(T)
If T(i) <> "" Then Compte = Compte + 1
Next i
End Function