Couper des lignes déja Filtées

Bonjour le forum

Tout d'abord merci pour votre aide, j'ai déja bien progressé en VBA
(Partant de Zéro c'etait facile!)

Mon soucis actuel consiste a ne couper que les lignes filtrées puis les coller en fin de liste de la feuille "reste a lancer"
C'est la selection du début de la liste qui me pose un probleme.
La premiere ligne n'est jamais la meme!donc le " Rows ("2:2").select ne va pas

Merci d'avance.

Voici mon code:

Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
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