Bonjour,

je souhaiterais supprimer les espces à la fin de chaque cellule de la colonne A
j'ai écrit (code obtenu avec l'enregistreur)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Columns("A:A").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
par contre, il remplace tous les espaces meme ceux entre les mots de chaque cellule par exemple Jeudi vendredi devient Jeudivendredi.
comment faire pour ne remplacer que ceux se trouvant à la fin??
merci beaucoup