XL 2010 copy paste delete

Sub Test()
Selection.Copy Feuil2.[A1]
Selection.Delete xlUp
End Sub

Sub Copier_sans_tri()
Dim t
t = Timer
With [A:A].SpecialCells(xlCellTypeConstants).EntireRow
    .Copy Feuil2.[A1]
    .Delete
End With
MsgBox Timer - t
End Sub

Sub Copier_avec_tri()
Dim t
t = Timer
With [A:A]
    .SpecialCells(xlCellTypeConstants).EntireRow.Copy Feuil2.[A1]
    .Resize(, 11).Sort .Cells(1), Header:=xlNo 'tri pour regrouper et accélérer
    .SpecialCells(xlCellTypeConstants).EntireRow.Delete
End With
MsgBox Timer - t
End Sub

.Range("A" & x & ":k" & x).Copy
Worksheets("PA soldé").Range("A" & D_sold & ":K" & D_sold).PasteSpecial (xlPasteAll)
.Range("A" & x & ":k" & x).Delete xlUp