Sub Insr_ligne()
Dim x As Long
If ActiveCell.Row > 10 Then
Selection.EntireRow.Insert
x = ActiveCell.Row
Range("A11:A" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=R[-1]C + 1"
Range("E" & x & ":F" & x).FormulaR1C1 = Range("E10:F10").FormulaR1C1
End If
End Sub