Re,
Supposons qu'il faut toujours expurger les 5 premiers caractères, change la ligne suivante :
[B1] = texte
par :
[B1] = Right(texte, Len(texte) - 5)
Si les premiers mots sont <> en nombre de caractères, ça ne marchera pas. Il faut nous dire si cette solution va pour toujours.