Sub INSERERLIGNES()
Rows('5:5').Select
Selection.Insert Shift:=xlDown
Rows('6:6').Select
Selection.Copy
Rows('5:5').Select
ActiveSheet.Paste
On Error Resume Next
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range('A5').Select
End Sub
[quote]