XL 2013 Macro copier la même colonne de plusieurs feuilles sur une feuille recap

Sub Macro1()
Dim R As Worksheet 'déclare la variable R (onglet Récap))
Dim I As Byte 'déclare la variable I (Incrément d'onglet)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination))
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set R = Worksheets("récap") 'définit l'onglet R
For I = 1 To 2 'boucle sur les deux premiers onglets du classeur (en l'occurrence Feuil1 et Feuil2)
    'définit la cellule de destination DEST (A1 si A1 est vide, sinon la première cellule vide de la colonne A de l'onglet R)
    Set DEST = IIf(R.Range("A1").Value = "", R.Range("A1"), R.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
    DL = Worksheets(I).Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de l'onglet de la boucle
    Worksheets(I).Range("A1:A" & DL).Copy DEST 'copie la plage A1:A...DL de l'onglet de la boucle et la colle dans DEST
Next I 'prochain onglet
End Sub

Sub test()
Dim ws As Worksheet
Set f = Sheets("récap")
For Each ws In Worksheets
If ws.Name <> "récap" Then
ws.Columns(1).SpecialCells(2, 23).Copy f.Cells(Rows.Count, 1).End(3)(2)
End If
Next
f.Rows(1).Delete
End Sub