Copier chaque ligne d'une feuille puis l'insérer sous celle-ci

Bonjour à tous,

Je précise que j'ai fait de nombreuses recherches avant de me décider à venir poster ici.
J'essaye de résoudre un problème pour le boulot.
J'ai un fichier excel très basique avec un certain nombre de lignes.
J'aimerai "simplement" copier CHAQUE ligne et l'insérer à l'identique en dessous de celle ci
(ex : ligne 1, copiée et insérée en dessous de la ligne 1 / ligne 2, copiée et insérée en dessous de la ligne 2 etc...)

J'ai trouvé des macros permettant de faire cela mais seulement sur une seule ligne.
Il me faut sélectionner la ligne 1 puis exécuter la macro, la ligne 2 puis exécuter la macro etc.

Merci de votre temps et de votre aide

Bonjour Tahiosten, le forum,

Un essai....

Sub Bouton1_Cliquer()
 Dim i As Integer, derlig As Integer
  Application.ScreenUpdating = False
  With Sheets("Feuil1")
   derlig = .Range("A" & Rows.Count).End(xlUp).Row
    For i = derlig To 2 Step -1
     .Rows(i + 1).Insert
     .Range("A" & i & ":B" & i).Copy .Range("A" & i + 1 & ":B" & i + 1)
    Next i
  End With
End Sub

Cordialement,

Il y a plusieurs souci (je t'ai mis le fichier avant et après la macro)
ça insére bien une ligne mais ça ne copie que les 2 premières colonnes, de plus ça semble copier la ligne du dessous et non celle du dessus (si je me réfère aux dates)

Désolé je ne peux pas adapter le code je n'y comprends rien.
En tout cas je te remercie de ton temps ! c'est top

Re,

Merci pour le retour,

Nouvel essai.....

Sub test()
 Dim i As Integer, derlig As Integer
  Application.ScreenUpdating = False
  With Sheets("CIC")
   derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = derlig To 3 Step -1
     .Range("A" & i & ":G" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
     .Range("A" & i - 1 & ":G" & i - 1).Copy: .Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Next i
  End With
  Application.CutCopyMode = False
End Sub

Cordialement,

ça fonctionne PARFAITEMENT BIEN, tu es un génie !
Merci beaucoup tu imagines pas comment tu me sauves !