Insérez une ligne après chaque ligne d'un tableau VBA

Bonjour,

Je fais appel à vous parce que je n'ai pas trouvé mon bonheur en navigant sur Internet.

Afin de gagner du temps sur mes travaux j'aimerai avoir une macro qui me permettrait de copier

chaque ligne de mon tableau juste en-dessous de chacunes de ces lignes.

Sauf que seulement 2 cellules de la ligne recopiée vont changer de contenu.

Je vous ai mis ci-joint un exemple sur excel :

Le 1er tableau est celui que je dois traiter (petit échantillon, d'habitudes environ une centaine de lignes).

Le 2ème tableau représente ce que doit exécuter la macro. En jaune, les lignes qui se sont ajoutées et les cellules oranges,

celles qui ont subi une modification.

N'hésitez pas à me dire si je n'ai pas été assez explicite !

En vous remerciant !

Bonjour,

solution via une macro

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = dl To 2 Step -1
            .Rows(i).Copy
            .Rows(i + 1).Insert shift:=xlDown
            .Cells(i + 1, "E") = "V"
            .Cells(i + 1, "M") = "C"
        Next i
    End With
End Sub

Hello h2so4,

Je te remercie pour la rapidité de ta réponse.

Lorsque je lance ta macro ils me disent que "dl" et "i" ne sont pas définies

Bonjour,

adaptation du code à tes paramètres excel

Sub aargh()
dim dl as long, i as long
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = dl To 2 Step -1
            .Rows(i).Copy
            .Rows(i + 1).Insert shift:=xlDown
            .Cells(i + 1, "E") = "V"
            .Cells(i + 1, "M") = "C"
        Next i
    End With
End Sub