Macro : Inserer des lignes sous conditions

[roidurif]

Bonjour,

Je souhaite insérer une ligne à chaque fois qu’il y a une donnée en colonne D (Nom4), pour ensuite déplacer et rajouter cette donnée en colonne E (Nom5), avec le remplissage automatique des données de la colonne A (Nom1) et colonne B (Nom2).
J’ai commencé un début de code, mais je ne vois comment faire la suite :

Voir fichier ci-joint

Sub Macro4()

dlgn = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
With Sheets("Feuil1")
For Each C In Worksheets("Feuil1").Range("D2:D" & dlgn)
If C <> "" Then Worksheets("Feuil1").Rows(C).Insert Shift:=xlDown

'... Puis récupérer les données de la colonne A (Nom1) et colonne B (Nom2).

Next
End With
End Sub

Merci de votre aide