Dim t, x As Variant, m As Object
Set m = CreateObject("Scripting.Dictionary")
x = Feuil1.Cells(2, 1).Resize(, Feuil1.Cells.Find("*", , , , xlByColumns, xlPrevious).Column).Value
For Each t In x: m(t) = t: Next t
Feuil4.[c6].Resize(1, m.Count) = m.keys