Copier / Coller transposé séparé par 2 lignes

Bonjour,

Je travail sur un tableau excel contenant plus de 15000 lignes et je souhaiterais pouvoir copier des données en lignes d'une feuille allant de A à BK et à les coller sur une autre feuille toute en les transposant dans la colonne D mais en laissant également 1 à 2 ligne entre chaque coller.

Quelqu'un aurait une idée? j'ai fait un premier programme mais je pense pas qu'il soit parfait

Sub test()
compteur = 0
For compteur = 0 To 100
Worksheets("IMPORT").Range("A6:BK6").Copy
Worksheets("Feuil1").Range("B").PasteSpecial Transpose:=True
Selection.Insert shift:=xlDown
compteur = compteur + 1
Next compteur
End
End Sub