renvoyer à la ligne vide

Bonjour, Je me permet de vous solliciter car j'ai écrit un code en VBA pour transférer les données d'une feuille sur une autre pour crée une base de donnée, mais j'ai trop de données qui fait que cela se fonctionne plus. Le but est de transférer comme vous pourrez le voir sur le fichier joint...