Rafraîchissement TCD

Bonjour,

J'ai un TCD qui se me met à jour automatiquement dès qu'une nouvelle donnée est mise dans mon tableau source. Quand la feuille n'est pas protégée, aucun soucis.Mais quand la feuille est protégée une erreur survient. Je suis obligé de déprotéger la feuille, entrer une donnée dans mon tableau et ensuite si je re-protège par après je n'ai plus d'erreur.

Ça pose problème puisque quand j'ouvre mon classeur, la feuille est protégée par défaut, et dès que j'entre une donnée dans mon tableau, une erreur s'affiche. (Obligé donc de faire la manip indiquée au-dessus)

Le code pour rafraichir :

If Not Intersect(Target, Range("TABsortie")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        ActiveSheet.PivotTables("TCDS").RefreshTable
    End If

Et les options quand la feuille est protégée :

ActiveSheet.Protect "test", userinterfaceonly:=True

J'ai déjà essayé de rajouter les argument suivants mais ça n'y change rien.

AllowUsingPivotTables:=True, AllowSorting:=True

Et les cellules de mon TCD sont bien déverrouillées.

Merci

Bonjour

Il faut ajouter dans le Workbook_Open

ActiveSheet.Protect "test", userinterfaceonly:=True