Suppression doublon dans 1 meme cellule

Bonjour,

Voulant supprimer des doublons dans 1 même cellule (ex: BEBE A MANGER YAOURT BEBE YAOURT), je suis tombé sur la fonction suivante:

Function SansDoublon(c, sep)
  a = Split(Application.Trim(c), sep)
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = 0 To UBound(a): mondico.Item(a(i)) = 1: Next i
  SansDoublon = Join(mondico.keys, sep)
End Function

Sauf que, lorsque je l'applique sur mes cases de G12 à G500, il supprime bien les doublons mais le 1er mot est également et systématiquement supprimé.

Sauriez-vous pourquoi?

Auriez-vous une autre solution?

En vous remerciant par avance.

Bonjour,

j'ai fait le test

=SansDoublon(A1;" ")

et le résultat est bien BEBE A MANGER YAOURT

Bonjour,

Merci pour votre retour.

J'avais trouvé dans une autre discussion une adaptation de cette fonction qui marche mieux chez moi. J'avais marqué le sujet comme résolu et posté un message dans ce sens, mais apparemment il n'a pas été enregistré sur le forum.