insertion de lignes vides

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

Bonjour
Tu avais la réponse

Code:

---

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