Couper des lignes déja Filtées

[Coucou]

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

 

[Gérard DEZAMIS]

Bonjour Coucou
Au lieu de rechercher la première en partant du haut
essaye de trouver la première remplie en partant ... du bas

avec range("C65536").End(XlUp)
On ne sait jamais !
@+
GD