Actualiser un graphique croisé dyna sur une feuille protégée

Bonjour je cherche à actualiser un graphique croisé dynamique sur une feuille qui sera protégée.

Dans le fichier je cherche à affecter une macro bouton "actualiser", l'utilisateur n'aura qu'a cliquer sur ce bouton pour actualiser les données du graphique dynamique et du tcd. Ce sont sur les feuilles fournisseurs et produits que je voudrais appliquer cette protection. Pouvez vous m'aidez svp ?

Voici le fichier en pièce jointe.

Merci d'avance.

Bonjour,

Ci-dessous la mise à jour du fichier.

Cdlt.

Public Sub ActualiserTCDs()

    For Each Feuille In ActiveWorkbook.Worksheets
        If Feuille.PivotTables.Count > 0 Then
            Feuille.Unprotect
        End If
    Next Feuille

    ActiveWorkbook.RefreshAll

    For Each Feuille In ActiveWorkbook.Worksheets
        If Feuille.PivotTables.Count > 0 Then
            Feuille.Protect _
                    Password:="", _
                    AllowUsingPivotTables:=True, _
                    UserInterfaceOnly:=True
        End If
    Next Feuille

End Sub