Aide sur une macro

Aide sur une macro j’ai écris une petite macro mais elle ne fonctionne pas comme je voudrais, je n’arrive pas à copier mes valeurs sur la ligne suivante.

But de la macro encoder des valeurs dans les feuilles correspondantes par rapport à un critère.

Fonctionnement : Lors du click sur le bouton « Enregistrer » je copie les valeurs de la feuille « Recopie » de la ligne 3 et je les colle en ligne 5 de la même feuille ensuite je vérifie la valeur de la cellule « A5 » de la feuille « Recopie » a la valeur de cellule « A1 » de chaque feuille « Prep, Hab, Cui et Fin » et je copie les valeurs correspondantes au critère dans la feuille correspondantes a ce critère à chaque nouvelle enregistrement les valeurs viennent ce coller sur la ligne libre suivante .4 critères NG feuille Prep REN feuille Hab DEC feuille Cui et REF feuille Fin. En fin de macro la feuille de »Saisie » est effacé après une boite dialogue
Mon problème tous marche bien sauf lors du premier enregistrement dans un critère les valeurs viennent bien se coller en ligne 3, mais lors du deuxième enregistrement dans le même critère les valeurs se colle sur la ligne 3 et 4 venant écraser les valeurs du premier enregistrement et ainsi de suite a chaque nouvelle enregistrement.
je joins le fichier