Comment ajouter des champ automatiquement

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DrLig As Long, Lig As Long, val1, val2

If Cells(Target.Row, 4) <> "" And Cells(Target.Row, 5) <> "" Then
    val1 = Cells(Target.Row, 4)
    val2 = Cells(Target.Row, 5)
End If
With Sheets("Analyse")
    DrLig = .Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 2 To DrLig
        If .Cells(Lig, 1) = val2 And .Cells(Lig, 2) = val1 Then
            Exit Sub
        End If
    Next
    .Cells(DrLig + 1, 1) = val2
    .Cells(DrLig + 1, 2) = val1
End With
End Sub