Insérer 2 lignes entre chaque article

Bonjour,

J'aimerais savoir si il n'y a pas une fonction spéciale pour insérer 2 lignes entre chaque ligne car j'ai plus de 1000 articles référencés donc 1000 lignes.

Merci pour votre aide

Sév94460

Bonjour sev94460 et bienvenue

Essaie avec cette macro

Sub Inserer()
Dim DerL As Long, L As Long
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")' Nom de feuille à adapter
        DerL = .Range("A" & Rows.Count).End(xlUp).Row
        For L = DerL To 1 Step -1
            Rows(L).Resize(2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

A+