mise à jour de TCD

Bonjour,

Voilà, je rencontre un problème dans la mise à jour d'un TCD.
J'ai une combobox qui appelle par l'intermédiaire de code VBA une autre nommée Macro2 qui doit mettre à jour 3 TCD.
Le code utilisé est le suivant:

- pour la combobox

Private Sub ComboBox1_Change()
Call Macro2
End Sub

- pour la Macro2

Sub Macro2()

Dim MaCel As Range
Set MaCel = Range("V5")

ActiveSheet.Unprotect
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Numéro RNE"). _
CurrentPage = "" & MaCel.Value
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Numéro RNE"). _
CurrentPage = "" & MaCel.Value
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

Chaque fois que je lance l'action par la combobox, la mise à jour se fait apparamment sur les 3 TCD mais se termine par un affichage:

Erreur d'execution '1004':
Impossible de lire la propriété pivotFields de la classe PivotTable.

Avez vous une explication et une solution pour régler ce problème?
Merci d'avance