Critère sur TCD d'une autre feuille

Bonjour,
Joins ton classeur.
Cdlt.

Re,
Les données sont sous forme de tableau structuré (dynamique).
Fais attention à tes en-têtes et les espaces indésirables.
Cdlt.

Dim pt As PivotTable

Public Sub FilterData()
Dim pf As PivotField, pf2 As PivotField
    Set pt = Worksheets("FFFF").PivotTables("XXX")
    Set pf = pt.PivotFields("N°OF")
    Set pf2 = pt.PivotFields("QTE OK ")
    With pt
        .PivotCache.MissingItemsLimit = xlMissingItemsNone
        .PivotCache.Refresh
        .ClearAllFilters
        pf.PivotFilters.Add _
                Type:=xlValueDoesNotEqual, _
                DataField:=pf2, _
                Value1:=0
    End With
End Sub