Contrôle TCD avec une Macro

Bonjour,
Je suis débutant avec les macros.

Je veux modifier dynamiquement un filtre de plusieurs TCD avec une macro.
Dans mon TCD le filtre à modifier est la journée. J’ai créé une liste déroulante avec tous les jours de la semaine. Quand je veux compléter l’enregistrement de ma macro dans VBA, j’obtiens « Erreur de Syntaxe ».

Merci de votre aide !


Sub ListeSynchro()
'
' ListeSynchro Macro
'

'
ActiveSheet.PivotTables("PivotTables2").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables2").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value
ActiveSheet.PivotTables("PivotTables4").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables4").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value
ActiveSheet.PivotTables("PivotTables6").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables6").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value

End Sub