Private Sub TextBox1_Change()
leTexte = TextBox1.Text
'enlever les espaces à droite
While Right(leTexte, 1) = " "
leTexte = Left(leTexte, Len(leTexte) - 1)
Wend
'enlever les espaces à gauche
While Left(leTexte, 1) = " "
leTexte = Right(leTexte, Len(leTexte) - 1)
Wend
'afficher le nombre de mots
TextBox2.Text = UBound(Split(leTexte, " ")) + 1
End Sub