Supprimer les doublons horizontalement

Bonjour voila je m'explique

J'ai plusieurs produits avec quelques fois des doublons sur la même ligne.

Sur le produit ayant l'ID 1, il y a une référence qui se répète, j'aimerais la supprimer et concatener le tout sans doublons.

Ce que j'ai fait :

J'ai concaténé le tout dans une cellule, puis avec une fonction VBA qui utilise la librairie Dictionary j'ai voulu supprimer les mots qui se répètent (http://boisgontierjacques.free.fr/pages_site/Doublons.htm#DoublonCellule)

Le problème c'est que je suis sur un mac avec Excel pour mac 2011 et donc j'ai une erreur 429 active x ne peut pas créer d'objet, à la ligne :

Set dico = CreateObject("Scripting.Dictionary")

y'a t il une autre solution ?

Bonsoir,

Function SansDoublonMAC(c, sep)
  a = Split(Application.Trim(c), sep)
  Dim Maliste As New Collection
  On Error Resume Next
  For i = LBound(a) To UBound(a)
     Maliste.Add Item:=a(i), Key:=a(i)
  Next i
  On Error GoTo 0
  Dim b(): ReDim b(1 To Maliste.Count)
  For i = 1 To Maliste.Count
    b(i) = Maliste(i)
  Next i
  SansDoublonMAC = Join(b, sep)
End Function

Ceuzin

exellent merci !!