=SOMMEPROD(NBCAR(A1)-NBCAR(SUBSTITUE(MINUSCULE(A1);" ";)))+1
Option Explicit
Sub test()
MsgBox UBound(Split(ActiveCell)) + 1
End Sub
Option Explicit
Sub test()
MsgBox UBound(Split(Trim(ActiveCell))) + 1
End Sub
=NBCAR(SUPPRESPACE(A1))-NBCAR(SUBSTITUE(A1;" ";))+1