Re Bonjour le Forum,
En replongeant un peu, je m'en suis sorti.
J'ai 2 variantes, soit je limite à 10 caractères (valeur de Cellule2), soit je limite à 1 lettre après l'espace. Je vous joint le bout de code, ça peut toujours servir.
Sub Reduit_Caractere()
'
Application.ScreenUpdating = False
'...