bonsoir
je ne suis pas sur d'avoir bien compris mais tu pourrais par exemple supprimer tous les espaces dans la donnee cible
maVariable = Application.Substitute(maVariable, ' ', '')
et ensuite compter le nombre de carateres qu'il te reste ...
un exemple :
Dim maVariable As String
maVariable = 'a z e r t y '
MsgBox Len(maVariable)
maVariable = Application.Substitute(maVariable, ' ', '')
MsgBox Len(maVariable)
bonne soirée
MichelXld