Supprimer espace à la fin de cellules

Bonjour à tous,

Je cherche à supprimer des espaces à la fin de chaque cellule.

Par exemple :

"agence immobilière " doit devenir "agence immobilière" sans espace à la fin.

Je doit faire cette opération sur plusieurs centaines de lignes.

Une idée ?

Merci à vous.

Bonne journée.

Bonjour

Avec ce code :

Sub SupprimeEspace()
For Each c In [A1:B20]
c.Value = Application.Trim(c.Value)
Next
End Sub

Tu modifies A1:B20 par la plage concernée.

Amicalement

Nad

Bonjour

Tu as pour cela la formule SUPPRESPACE

=SUPPRESPACE(A1) renvoie A1 sans les espaces superflus

Cordialement

Merci beaucoup à vous, les deux solutions fonctionnent très bien !

Bonne fin de journée