Supprimer le filtre sur des feuilles précises

Bonjour,

J'espère que vous allez bien.

Dans mon fichier joint, j'essai de faire disparaitre le filtre sur les feuilles (Alpes Provence, Alsace Vosges, Anjou Maine), parce que ces feuilles doivent être exporter séparément et en faisant disparaitre les filtres, cela empêche d'avoir accès aux données d'une autre entité.

Cependant j'applique cette macro, mais elle ne marche pas. Pouvez vous m'aider svp?

Merci pour votre aide

Sub DisableSelection()
Dim i As Integer
Dim f As Worksheet
Dim pt As PivotTable, pf As PivotField, sPI As String

' paramètres #############
Feuilles = Array("Alpes Provence", "Alsace Vosges", "Anjou Maine")
    For i = 0 To UBound(Feuilles)
        Set f = Sheets(Feuilles(i))
    sPI = Range("B1").Value
    Set pt = f.PivotTables(1)
    Set pf = pt.PageFields("Entité")
Next i
End Sub

voici une proposition

nouvelle proposition plus simple

excécuter la macro "effacer_filtres_all"

Merci Gullaud, tu gères ;)