Sub test()
x = Split("toto,titi,riri,toto,fifi,loulou,riri,toto,paul,pierre,toto,jacques,titi,truc", ",")
x = TransposeX(x)
Cells(1, 1).Resize(UBound(x), 1) = x
End Sub
Function TransposeX(t)
Dim a&, i&, c&, tabl()
ReDim tabl(1 To UBound(t) + IIf(LBound(t) = 0, 1, 0), 1 To 1)
For Each elem In t
a = a + 1: x = Application.Match(elem, t, 0)
If x = a Then c = c + 1: tabl(c, 1) = elem
Next
TransposeX = tabl
End Function