Inserer une formule dans une nouvelle ligne

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 25 Then
    'Application.EnableEvents = False
    i = Target.Row
    With Cells(i, 25)
        .Formula = "=IF(COUNTIF('X:\xxx\[Warranty tracking sheet - RAH RD_STA+ALT _2011_III.xls]TOP Warranty'!$A$3:$A$66;L" & i & _
        ")*AND(K" & i & "=""DD"";P" & i & "=1);""TOP WARRANTY"";"""")"
        .Value = IIf(Not IsError(.Value), .Value, "")
    End With
    With Cells(i, 26)
        .Formula = "=IF(COUNTIF('TOP Warranty'!$G$3:$G$48;L" & i & _
        ")*AND(K" & i & "=""DD"";P" & i & "=1);""Német TOP W."";"""")"
        .Value = IIf(Not IsError(.Value), .Value, "")
    End With
    With Cells(i, 27)
        .Formula = "=IF(COUNTIF('TOP Warranty'!$L$3:$L$110;L" & i & _
        ")*AND(K" & i & "=""DG"";P" & i & "=1);""Tunéz TOP w."";"""")"
        .Value = IIf(Not IsError(.Value), .Value, "")
    End With
    'Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, n, y, x
If Target.Column < 25 And Target.Row > 1 Then
    i = Target.Row
    n = Cells(i, 12)
    y = IIf(Cells(i, 11) = "DD" And Cells(i, 16) = 1, 1, 0)
        x = Application.CountIf(Sheets("TOP Warranty").Range("A3:A66"), n)
        Cells(i, 25) = IIf(x * y > 0, "TOP WARRANTY", "")
        x = Application.CountIf(Sheets("TOP Warranty").Range("G3:G48"), n)
        Cells(i, 26) = IIf(x * y > 0, "Német TOP W", "")
    y = IIf(Cells(i, 11) = "DG" And Cells(i, 16) = 1, 1, 0)
        x = Application.CountIf(Sheets("TOP Warranty").Range("L3:L110"), n)
        Cells(i, 27) = IIf(x * y > 0, "Tunéz TOP W", "")
End If
End Sub