Couper coller un groupe de lignes dans une autre feuille

Bonjour à tous,

Voilà plusieurs heures que j'épluche les forums mais je ne trouve pas de réponse à mon problème.

Ce que je souhaite faire n'a rien d'exceptionnel pourtant : couper deux lignes, les coller dans une autre feuille.

Voilà un bout de mon code :

 With Application.Workbooks(classeur)

                .Worksheets(feuille).Rows(ligne - 1).Copy 'copier ligne "dessus"
                .Worksheets(feuille2).Activate
                .Worksheets(feuille2).Rows(lignefeuille2).Paste 'la coller dans la feuille 2
                .Worksheets(feuille).Activate
                .Worksheets(feuille).Rows(ligne - 1).Delete 'suppression de la ligne "dessus"
                .Worksheets(feuille).Rows(ligne - 1).Copy 'copier la ligne "Annul"
                .Worksheets(feuille2).Activate
                .Worksheets(feuille2).Rows(lignefeuille2 + 1).Paste 'la coller dans la feuille 2
                .Worksheets(feuille).Activate
                .Worksheets(feuille).Rows(ligne - 1).Delete 'suppression de la ligne "Annul", qui porte alors le même numéro que la ligne qui vient d'être supprimée
                ligne = ligne - 2 'Pour suivre la variation de numéro de ligne entraîné par les suppressions
                nombredannul = nombredannul + 1
                lignefeuille2 = 2 * nombredannul + 1 'pour laisser un espace entre 2 groupes de ligne collés dans la feuille 2

J'ai pourtant bien déclaré toutes les variables, mais l'erreur qui apparaît est :
"Erreur d'exécution '438' propriété ou méthode non gérée par cet objet"

Quelqu'un saurait m'aider svp ?

Merci :)