Function Nb_Mots%(t$)
Dim i%, x$
t = UCase(t)
For i = Len(t) To 1 Step -1
x = Mid(t, i, 1)
If Not (x Like "[A-Z]" Or x Like "[0-9]") And x <> " " Then t = Left(t, i - 1) & Mid(t, i + 1)
Next
Nb_Mots = UBound(Split(Application.Trim(t))) + 1
End Function
Oui, voyez ce fichier (2) avec :Facile à corriger ?
If Not x Like "[0-9,A-Z,À,Ô]" And x <> " " Then t = Left(t, i - 1) & Mid(t, i + 1)
Function Nb_Mots%(t$)
Dim i%
t = LCase(t)
For i = Len(t) To 1 Step -1
If Not Mid(t, i, 1) Like "[0-9, ,a-z,à,ô]" Then t = Left(t, i - 1) & Mid(t, i + 1)
Next
Nb_Mots = UBound(Split(Application.Trim(t))) + 1
End Function