Sub Macro1()
Dim i As Byte
Dim fc As Integer
'Copie les colonnes
For i = 2 To 6
fc = Cells(1048576, i).End(xlUp).Row
Range(Cells(2, i), Cells(fc, i)).Copy
Cells(1048576, 1).End(xlUp).Offset(1).PasteSpecial
Next
'Supprime les doublons
ActiveSheet.Range("$A$1:$A$1048576").RemoveDuplicates Columns:=1, Header:=xlYes
Range("A1").Select
End Sub