Sub TESTFilterPivotTable()
Sheets("Articles et incidents clos").Activate
With ActiveSheet
.PivotTables("TCD").PivotFields("Description").ClearAllFilters
.PivotTables("TCD").PivotFields("Description").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:="*OFF*"
End With
End Sub