Bonjour,
à tester,
Sub Créer_Nouvelle_Ligne()
LastRow = Sheets("FRE_OPE").Cells(Rows.Count, 1).End(xlUp).Row
Rows("10:11").Copy
Rows(LastRow + 2).Insert Shift:=xlDown
Range("A" & LastRow & ":A" & LastRow + 1).AutoFill Destination:=Range("A" & LastRow & ":A" & LastRow + 3), Type:=xlFillDefault
End Sub