Sub macro180809()
'http://www.excel-downloads.com/forum/125567-comment-regrouper-plusieurs-colonnes-en-une-seule-colonne.html
Dim c As Long, i As Long
c = ActiveSheet.UsedRange.Columns.Count
For i = 2 To c
Range(Cells(1, i), Cells(1, i).End(xlDown)).Copy Range("A65536").End(xlUp)(1)
Next
End Sub