Sub DeuxColonnesEnUne_sansdoublons()
Dim tablo() As Variant, Plg As Range, x As Long
Application.ScreenUpdating = False
[T1] = "Consolidation"
tablo = Selection.Offset(1).Value
For x = LBound(tablo, 2) To UBound(tablo, 2)
Set Plg = Cells(Rows.Count, "T").End(xlUp).Offset(1)
Plg.Resize(UBound(tablo, 1)).Value = Application.Index(tablo, , x)
Set Plg = Nothing
Next x
Erase tablo
Columns("T").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("T").Sort Key1:=Columns("T"), order1:=xlAscending, Header:=xlYes
End Sub