Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Sheets("Produits").Range("T_Cal[#All]").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("I1:I2"), CopyToRange:=Range("A3:B3"), Unique:=False
End Sub