Copier en vba colonne

Dim DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
Sheets("feuil1").Range("A1:A" & DerniereLigne).Copy Sheets("feuil2").Cells(Rows.Count, 1).End(xlUp)(2)

Option Explicit
'------------------------------------------------
Sub Empiler_colonnes()
Dim Derlig As Integer, Tampon As Range, Colvid As Integer

    With Sheets(1)
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
         Set Tampon = .Range("A1:A" & Derlig)
    End With
    With Sheets(2)
        If .Range("A1") <> "" Then
            Colvid = .Rows(1).Find(what:="", after:=.Cells(1, "XFD")).Column
        Else
            Colvid = 1
        End If
        Tampon.Copy .Cells(1, Colvid)
        .Activate
    End With
End Sub

Sub Empiler_colonnes()
Dim Derlig As Integer, Tampon As Range, Colvid As Integer

    With Sheets("COMMANDE")
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
         Set Tampon = .Range("A1:A" & Derlig)
    End With
    With Sheets("JANVIER 2017")

    .Range("A1:A100").ClearContents
        If .Range("A1") <> "" Then
            Colvid = .Rows(1).Find(what:="", after:=.Cells(1, "XFD")).Column
        Else
            Colvid = 1
        End If
        Tampon.Copy
        .Cells(1, Colvid).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        .Activate
    End With
End Sub