Function MagicD(s)
MagicD = 1 + UBound(Split(Application.WorksheetFunction.Trim(s)))
End Function
Sub test()
Dim chaine1$, chaine2$, chaine3$
chaine1 = "288 3 666 52 12"
chaine2 = "033 17 12 4"
chaine3 = "288 3 666 52 12"
MsgBox MagicD(chaine1)
MsgBox MagicD(chaine2)
MsgBox MagicD(chaine3)
End Sub