Public Sub ElimDoublon() 'Function
Feuil1.Activate
#cette ligne efface les valeurs produites par MCONCAT sur la plage de cellules spécifiées
plg = Range("J13:J20"): Range("J13:J20").ClearContents
#création d'un dico stockant les valeurs séparées par un ;
Set x = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(plg, 1)
tbl = Split(plg(i, 1), ";")
For j = 0 To UBound(tbl)
If Not x.Exists(tbl(j)) Then x.Add (tbl(j)), CStr(tbl(j))
Next j
#là je ne sais pas
For Each Item In x.items
Range("J" & i + 3) = Range("J" & i + 3) & Item & ";"
Next Item
Range("J" & i + 3) = Left(Range("J" & i + 3), Len(Range("J" & i + 3)) - 1)
Next i
End Sub