Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" And Target.Count = 1 Then
Sheets("Feuil1").Range("B2:L1000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("M1:M2"), CopyToRange:=Range("D4:N4"), Unique:=False
End If
End Sub