Excel: insérer une ligne entre chaque ligne

Public Sub ajout_ligne()
Dim lig As Long
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    Rows(lig + 1).Insert
Next lig
End Sub

Public Sub ajout_ligne()
Dim lig As Long, DerLig As Long
    DerLig = Cells(Rows.Count, 1).End(xlUp).Row -1
    For lig = DerLig To 1 Step -1
        Rows(lig + 1).Insert
    Next lig
End Sub

Discussions similaires