Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
If [B2] <> "" Then
Range("tableau").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
[B1:B2], Unique:=False
End If
Application.EnableEvents = True
End Sub