Copier des lignes en VBA

[Coucou]

Bonsoir a tous,

Je n'arrive pas a selectionner puis a couper/coller uniquement les lignes filtrées dans une liste.

Novice en VBA, j'ai bidouillé le code suivant: (cela fera surement rigoler beaucoup de monde mais bon!)

datefrom = Val.Range("A1")
Liste.Range("J1").AutoFilter Field:=10, Criteria1:=">" & datefrom, Operator:=xlAnd
'couper les ligne selectionnées'
Range("A1").Select
Dim Dercell1 As Object
Set Dercell1 = Selection.End(xlDown)
Dercell1.Select
'Range(Selection, Selection.End(xlDown)).Select
Selection.CurrentRegion.Select
Selection.Cut
Sheets("Reste a lancer").Select
Range("A1").Select
Dim Dercell As Object
Set Dercell = Selection.End(xlDown)
Dercell.Select
Set cellvide = ActiveCell
Set cellvide = cellvide.Offset(1, 0)
cellvide.Select
ActiveSheet.Paste

Merci encore pour tout ce que j'apprends ici. COUCOU.