Sub InsèreLigneFormule()
Dim DerLig As Long, DerCol As Long
Dim Cel As Range, Plage As Range
DerLig = Range("A65536").End(xlUp).Row + 1
DerCol = Range("IV6").End(xlToLeft).Column
Cells(DerLig, 1).EntireRow.Insert
Cells(DerLig, 1).EntireRow.FillDown
Set Plage = Range(Cells(DerLig, 1), Cells(DerLig, DerCol))
For Each Cel In Plage
If Cel.HasFormula = False Then Cel.ClearContents
Next
End Sub