Function SupDoublon$(txt$)
Dim s, u%, i%, j%
s = Split(txt, "+")
u = UBound(s)
For i = 0 To u
For j = i + 1 To u
If s(i) = s(j) Then s(j) = ""
Next
Next
For i = 0 To u
SupDoublon = SupDoublon & IIf(s(i) = "" Or i = 0, "", "+") & s(i)
Next
End Function