Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pi As PivotItem
If Target.Address <> "$F$2" Then Exit Sub
Application.EnableEvents = False
With Me.PivotTables(1).PivotFields("Qualité")
.ClearManualFilter
If Target = "" Then GoTo fin
For Each pi In .PivotItems
If .VisibleItems.Count > 1 Then pi.Visible = pi.Value = Target
Next pi
End With
fin:
Application.EnableEvents = True
End Sub