Function nbmot3(ByVal s As String) As Integer

Dim copie As String, positionespaces As Integer
copie = Trim(s)
positionespaces = InStr(copie, " ")
If positionespaces = 0 Then
    If copie = "" Then nbmot3 = 0 Else nbmot3 = 1
Else
nbmot3 = 1 + nbmots3(Right(copie, Len(copie) - positionespaces))
End If
End Function