VBA extraire données d'une liste

Sub Macro1()
Range("G1") = Range("B1")
Range("G2") = "<" & CDbl(Range("E1"))
Range("A1:B" & Range("A65000").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "G1:G2"), CopyToRange:=Range("G4:H4"), Unique:=False
End Sub

Sub Macro2()
Dim t(), i&, x&
For i = 2 To [a65000].End(xlUp).Row
    If CDbl(Cells(i, 2)) < CDbl(Cells(1, 5)) Then
        x = x + 1
        ReDim Preserve t(1 To 2, 1 To x)
        t(1, x) = Cells(i, 1)
        t(2, x) = Cells(i, 2)
    End If
Next
Range("G1").Resize(UBound(t, 2), 2) = Application.Transpose(t)
End Sub

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim x As Integer 'déclare la variable x (incrément de ligne)
Dim dest As Range 'déclare la variable dest (DESTination)
 
dl = Sheets("Feuil1").Cells(Application.Rows.Count, 2).End(xlUp).Row 'définir la dernière ligne éditée de la colonne B
For x = dl To 2 Step -1 'boucle inversée sur toutes les cellules éditées de la colonne B de la dernière à la seconde
    'si la valeur de la cellule est inférieur ou égale à la valeur de la cellule E1
    If Cells(x, 2).Value <= Sheets("Feuil1").Range("E1").Value Then
        Set dest = Sheets("Feuil2").Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination
        Range(Cells(x, 1), Cells(x, 2)).Copy dest 'copie les deux cellules de la ligne et les colle dans dest
        Rows(x).Delete shift:=xlShiftUp 'supprime la ligne des cellule tranférée
    End If 'fin de la condition
Next x 'prochaine cellule de la boucle
End Sub