Inserer ligne avec report formule

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then
    With ActiveSheet
        .Unprotect
        .Rows(Target.Row).Insert
        .Range("B5").Value = "--"
        .Range("E5").FormulaR1C1 = "=RC[-2]*RC[-1]"
        .Range("$a$5").Select
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True
    End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowInsertingRows:=True, userinterfaceonly:=True
    Rows(Target.Row).Insert
    ActiveSheet.Range("B5").Value = "--"
    Range("E5").FormulaLocal = "=C5*D5"
    Range("H5").FormulaLocal = "=SI(E5< 20;20;E5)"
    Range("I5").FormulaLocal = "=E5*10%"
    Range("$a$5").Select
End If
End Sub