salut'Laurent68,Philippe,dg62'
en pièce jointe une variante adaptée du code de dg62 [file name=Insert_Row.zip size=7209]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Insert_Row.zip[/file]
J'ai coloré les lignes insérées en rouge (pour qu'on les voies bien )
Sub ins()
For c = 1 To 100
Range('A' & c).Value = c
Next For c = 4 To 125 Step 5
Range('A' & 1 + c).EntireRow.Insert
Range('A' & 1 + c).Interior.ColorIndex = 3 Next
End Sub
C'est simple et efficace, en sachant que seules les lignes de code en bleu suffisent; le reste c'est pour la mise en place de l'exemple et la coloration. 3 lignes de code