Archivage couper-coller des lignes

Bonjour,

Je cherche à créer une macro qui va couper des lignes (sous certaines conditions) puis les coller dans une autre feuille. A chaque fois que j'active la macro, j'aimerais que les lignes soient coupées et collées à la suite du dernier archivage...ce n'est peut-être pas très clair...voilà ce que j'ai commencé :

Sub archiv ()
Dim lCol As Long, lRow As Long, lastRow As Long, I As Long 
Dim xlCount As Double
lCol = 9 ; lRow = 2
For I = lRow to lastRow 
xlCount = WorksheetFunction.CountA(Cells(I, 13), Cells(I, 19), Cells(I, 21), Cells(I, 12))
If xlCount = 4 Then Range("G" & I).Entire.Row.Cut 

Jusque là tout va bien, sous les conditions la/les lignes en questions sont coupées, mais pour les coller j'ai du mal j'ai essayé quelques trucs sans succès, si vous avez des idées ?

Merci d'avance

Bonjour

ton fichier s'il te plaît !!!

Ce sera plus aisé...

Merci

Bonjour,

Je n'ai pas encore pris l'habitude....Je vous joins un fichier test.

Bonsoir

J'ai nommé une feuille Archive où je colle les données coupées

A voir

Merci ça marche parfaitement !

Bonsoir

Tant mieux

Bonne continuation

Bye