Excel

Bonjour,

Je veux insérer une nvlle ligne après chaque ligne sur un fichier Excel (feuille 1) pour obtenir la résultat présente sur la feuille 2

voir ci-joint et merci d'avance .

Bonjour Ben Haj,

Voici un code a essayer :

Sub test()

derlgn = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row

For i = derlgn To 1 Step -1
    If Sheets("Feuil2").Cells(i + 1, 1) <> "" Then Sheets("Feuil2").Rows(i + 1).Insert Shift:=xlDown
Next i
End Sub

Non ça n'a pas marché, merci d'exécuter le macro sur le fichier en joint

Bonjour,

A tester.

ALT F8, exécuter la procédure.

Cdlt

Merci beaucoup