Discussion :

[thval]

Bonjour
Dans un tableau excel, je voudrais insérer une ligne vide entre chaque ligne et ce, de la ligne 1 a la ligne 3000.
Est ce possible ?
Merci

[mercatog]

Bonjour
Tu avais la réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil3")                                                'à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 2 Step -1
        .Rows(i).Insert
    Next i
End With
End Sub

Et n'oublies pas de mettre Résolu dans les sujets que tu as eu la réponse définitive