Supprimer doublons dans une cellule

Bonjour,

je cherche un code VBA qui pourra me supprimer un doublon dans une cellule

par exp si la cellule A1 contient 2 fois Europe par exemple, il faut en supprimer un , ou 2 s'il y en a 3.

Merci

Re-,

par quoi sont séparés tes mots dans la cellule?

Ils sont de ce type:

ELISA,ELISA,WB,WB

generalement separés par une virgule

Re-,

le "Généralement" me dérange un peu.....

Sinon, avec ce code de Jacques Boisgontier :

Sub test()
    Dim Dico, c As Range
    Set Dico = CreateObject("Scripting.Dictionary")
    On Error Resume Next
    For Each c In Range("A1", Range("A65536").End(xlUp))
        tablo = Split(c, ",")
        For Each Item In tablo
            Item = Application.Trim(Item)
            Dico.Add Item, ""
        Next Item
        c = ""
        For Each k In Dico.keys
            c = c & ", " & k
        Next
        c = Left(Right(c, Len(c) - 2), Len(c) - 2)
        For Each k In Dico.keys
            Dico.Remove k
        Next
    Next c
End Sub

Ca marhe parfaitement, c'est exactement ce qu'il me fallait

Grand merci felix , tu geres :p