Probleme filtre avec protection

Bonjour,

Je vous souhaite à tous une belle année 2022 :)

J'ai un problème de tri de filtre automatique avec un tableau. J'ai 3 onglets sur lesquels j'en ai besoin, "BASE LOCETUDES", "TBR", "ECOLE".

Lorsque je protège mes feuilles je coche bien "utiliser filtre automatique", cela fonctionne pou "BASE LOCETUDES" et "ECOLE" mais pas pour "TBR". Enfin cela fonctionne quand je viens de le sélectionner, mais si je ferme le fichier et que je l'ouvre à nouveau cela ne fonctionne plus. J'ai créé plusieurs tableaux sur le même onglet, cela peut peut être venir de là ?

J'ai rentré cette VBA sur VBA Project sur la feuille TBR et je l'ai enlevé mais rien ne fonctionne. Pourriez vos m'aider ? J'ai office professionnel plus 2016.

Option Explicit
Private Sub Workbook_Open()
'Macro par Dan pour Fabrice69
With Sheets("TBR")
.EnableOutlining = True
.Protect userInterfaceOnly:=True
End With
End Sub

Voici le fichier en question :

Bonjour,
Essaie ainsi :

Private Sub Workbook_Open()
    With Worksheets("TBR")
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect userInterfaceOnly:=True
    End With
End Sub

La formule fonctionne :)

Merci beaucoup !