Salut
une autre solution consterait à faire une fionction personnalisé
Function ComPte_Mot(plage As Range)
Dim cel As Variant
For Each cel In plage
For e = 1 To Len(cel)
If Asc(Right(Left(cel, e), 1)) < 33 Then
mot = mot + 1
End If
Next
mot = mot + 1
Next
ComPte_Mot = mot
End Function
--
ceci est une ébauche
sit tu prends les deux vers suivant
J'aime le son du cor, le soir au fond des bois
Soit qu'il chante les pleurs de la biche aux abois
1 verre sava 2verres etc...

tu obtiendras 21 mots le compte est fait sur les espaces
Cordialement
G.David
le respect n'est pas un dû
il se merite