Ne pas écrier une chaine de caractère si elle existe déjà

Bonjour,

Je cherche un code qui me permettra de copier chaque terme d'une expression mais de ne pas copier si le terme existe déjà,

Exemple :

J'ai dans ma cellule : a b c a b d e

Je voudrai juste copier : a b c d e

Bonjour,

Les espaces sont des caractères comme les autres, donc cela aurait dû donner : a bcde !

MFerrand a écrit :

Bonjour,

Les espaces sont des caractères comme les autres, donc cela aurait dû donner : a bcde !

Tien, d'ailleurs je voudrais supprimer les espace vide merci de ta remarque

For Each Cel In Range("a2:a" & [a65000].End(xlUp).Row)
                                    If Not Unique.Exists(Cel.Value) Then Unique.Add Cel.Value, Cel.Value
                                Next Cel
                                Range("a2:a" & [a65000].End(xlUp).Row).EntireRow.Delete
                                Range("a2:a" & Unique.Count + 1) = Application.Transpose(Unique.items)

J'ai trouvé ce code qui me supprime les doublons mais j'aimerai l'utiliser sur l'intégralité de ma fenêtre, et ne pas prendre en compte les espace