Sub nouvelleligne()
Dim iR&, i&, k&
iR = ActiveCell.Row
Rows(iR).insert
k = ActiveSheet.UsedRange.Columns.Count
For i = 1 To k
Cells(iR, i).Formula = Cells(iR + 1, i).Formula
Next
End Sub
Sub Macro3()
Dim x As Integer
For x = Range("A65536").End(xlUp).Row To 1 Step -1
If Not Intersect(Range("A" & x), Selection) Is Nothing Then
Rows(x).insert Shift:=xlDown
End If
Next
End Sub