Bonjour,
en utilisant l'enregistreur de macro on obtient les codes suivants :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 05/10/2004 par Eric
'
'
'
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("5:5").Select
Selection.AutoFill Destination:=Rows("5:6"), Type:=xlFillCopy
Rows("5:6").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 05/10/2004 par Eric
'
' copie incrémentée
'
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("7:7").Select
Selection.AutoFill Destination:=Rows("6:7"), Type:=xlFillDefault
Rows("6:7").Select
tu peux t'en inspirer
A+
Eric