Sub Macro1()
Dim dest As Range 'décalre la variable dest (DESTination)
Dim NDECAL As Integer 'déclare la variable NDECL (decalage des lignes)
Dim I As Byte 'déclare la variable I (incrément)
Set dest = Sheets("Feuil2").Range("D6") 'définit la variable dest
NDECAL = 0 'définit la variable NDECAL (là j'ai pas compris, tu adapteras)
For I = 1 To 5 'boucle de 1 à 5
'copie la cellule A1 (à adapter) de l'onglet "Feuil1" et le colle dans dest décalé de NDECAL lignes et I colonnes
Sheets("Feuil").Range("A1").Copy dest.Offset(NDCAL, I)
Next I
End Sub