Salut,
Tu peux aussi utiliser l'objet "characters" avec la propriété count.
En supposant que tu écris ta date dans la cellule a1 et que tu veux afficher le nbre de caractères dans la cellule b1, la syntaxe est la suivante :
Range("b1").Value = Range("a1").Characters.Count
Voilà
A+