copier des données + liste déroulante

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, x As Integer
If Target.Address = "$C$4" Then
Application.EnableEvents = True
x = 10
For i = 2 To ThisWorkbook.Worksheets("base").Range("B1").End(xlDown).Row
If ThisWorkbook.Worksheets("Feuil1").Range("C4").Value = ThisWorkbook.Worksheets("Base").Range("B" & i).Value Then
 
ThisWorkbook.Worksheets("Feuil1").Range("C" & x).Value = ThisWorkbook.Worksheets("Base").Range("D" & i).Value
ThisWorkbook.Worksheets("Feuil1").Range("D" & x).Value = ThisWorkbook.Worksheets("Base").Range("E" & i).Value
If ThisWorkbook.Worksheets("Base").Range("A" & i).Value = 2009 Then
ThisWorkbook.Worksheets("Feuil1").Range("E" & x).Value = ThisWorkbook.Worksheets("Base").Range("F" & i).Value
Else
ThisWorkbook.Worksheets("Feuil1").Range("F" & x).Value = ThisWorkbook.Worksheets("Base").Range("F" & i).Value
End If
x = x + 1
End If
Next i
End If
End Sub