insertion de lignes

Sub insere()
Range("a1").Select
For i = 1 To 5000
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).EntireRow.Select
Next
End Sub

Bon travail

Merci également car je viens de lire la réponse et de découvrir ce qui me manquait détaillé dans l'aide INSERT.

Bonne soirée.

Salut aandré01 !

Tiens une autre macro, qui n'est pas de moi, mais qui fonctionne.


Sub MacroInsertUneLigneSurDeux()
Dim Line As Integer
Range("A2").Select
Line = 1
Recommence:
Line = Line + 2
Rows(Line).Select
Selection.Insert Shift:=xlDown
If Line < ActiveSheet.UsedRange.Rows.Count Then
GoTo Recommence
End If
End Sub

@ +

Moa