Macro copier-coller vertical avec incrémentation J+1

[Jc_Liochon]

Bonjour,
J’ai un fichier excel avec plusieurs lignes et colonnes pour une date N (la date est écrit sur une colonne).
Je souhaiterai copier ces lignes et les coller a la suite des lignes sans trou.
A l’identique mais en incréentant la date de J+1.
Je souhaiterai crééer une macro qui puisse faire ce copier coller vertical afin de m’éviter de le faire manuellement.
je vous joins un exemple, merci d’avance!!

EXEMPLE.xlsx (11,6 Ko)

[Cow18]

bonsoir, la macro copie et colle les 6 dernières lignes

Const iLignes = 6

Sub teste()
     With Sheets("sheet1")                   'votre feuille
          Set c = .Range("A" & Rows.Count).End(xlUp).Offset(-iLignes + 1).Resize(iLignes, 4)     'vos données du dernier jour (autant de lignes & colonnes)
          c.Copy c.Offset(c.Rows.Count)      'copier et coller autant de lignes
          Range("AA1").Value = 1             'dans une cellule aléatoire la valeur 1
          Range("AA1").Copy                  'copier
          With c.Offset(c.Rows.Count).Resize(, 1)
               .PasteSpecial xlPasteAll, Operation:=xlAdd     'coller 1 et ajouter
               .NumberFormat = "mm/dd/yy"
          End With
          Range("AA1").ClearContents         'vider la cellule aléatoire
     End With
End Sub

EXEMPLE (28).xlsm (23,7 Ko)