Supprimer des termes en double dans UNE même cellule

Hello tout le monde!

J'ai un problème pour supprimer der termes en double au sein d'une même cellule.

Plusieurs niveaux de difficultés : les mots sont séparés par deux caractères : "," et "/".

Par exemple : j'ai BLUE-BLUE, ça j'arrive avec mon code à avoir BLUE.

Si j'ai BLUE/BLUE j'arrive aussi à avoir BLUE à l'arrivée.

En revanche, si j'ai BLUE-BLUE/BLUE alors quand j'applique une fonction, cela me retourne BLUE-BLUE/BLUE...

Pourriez-vous m'aidez s'il vous plaît ? :)

Bonjour

Yes bien vu, ça sera beaucoup parlant :)

C'est un fichier de 1500 lignes, c'est pour ça que je cherche à trouver un moyen d'aller plus vite.

Je mets le fichier Excel avec le codeVBA de la fonction RemoveDupes2 (j'ai pris le code sur ce forum :) ).

Re,

Teste avec cette fonction

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String  
    Dim x
    'Updateby Extendoffice
    With CreateObject("Scripting.Dictionary")

        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
        txt = Replace(txt, "-", "/")
        Next
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
    End With
End Function

=RemoveDupes2(E2;"/")