Incrémentation

J'ai crée un programme permettant de pouvoir transposer mes valeurs. Je souhaiterais que ce programme puisse prendre la ligne 2,3,4,5,6 et ainsi des suite... qui sont en ligne. De plus je souhaiterais qu'il puisse les transposer les uns en dessous les autres en colonne

J'ai fait un programme j'espere que vous me comprendrez

Sub Macro56()
'
' Macro56 Macro
'
compteur = 0 'compteur a 0
For compteur = 0 To 25 'Répétition du programme 200 fois
    Sheets("IMPORT").Select
    Range("A6:BK6").Select 'Ce sont mes lignes que je voudrais incrémenter
    Selection.Copy
    Sheets("Feuil1").Select
    Range("D8:D70").Select 
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Selection.Insert Shift:=xlDown
        compteur = compteur + 1
        Next
        End
End Sub

Bonjour,

si j'ai bien compris, les données de la ligne 2 doit être transposées sur la Feuil2 à partir de la cellule D8,

est ce que les données de la ligne 3 seront transposées sur la Feuil2 à partir de la cellule E8 ou de la cellule D71 ?

aussi faut t'il garder le format lors du transfert ?