Macro changer filtre selon une cellule

Bonjour :)

J'ai besoin d'aide.
J'essaie de changer un filtre selon une cellule dans un TCD.

Ce que me donne la formule dans l'enregistrement:

With ActiveSheet.PivotTables("FDQ_WK_RFDQ").PivotFields("Week")
.PivotItems("39").Visible = False
.PivotItems("40").Visible = False
.PivotItems("41").Visible = False
.PivotItems("42").Visible = False
.PivotItems("43").Visible = True
.PivotItems("44").Visible = True
.PivotItems("45").Visible = True
.PivotItems("46").Visible = True
End With

Je veux changer les valeurs par une cellule. Quand j'essaie par exemple:

.PivotItems(" & Worksheets("Gestion FDQ").Range("F68").Value & ").Visible = True

Cela ne fonctionne pas.

Dans un TCD lié a un cube cela fonctionne parcontre. exemple

ActiveSheet.PivotTables("FDQ_WK_WhiteSpace").PivotFields("[Dimension Date].[Year - Week - Day].[Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("FDQ_WK_WhiteSpace").PivotFields("[Dimension Date].[Year - Week - Day].[Week Number]").VisibleItemsList = Array( _
"[Dimension Date].[Year - Week - Day].[Week Number].&[" & Worksheets("Gestion FDQ").Range("F68").Value & "]&[2021]", _
"[Dimension Date].[Year - Week - Day].[Week Number].&[" & Worksheets("Gestion FDQ").Range("G68").Value & "]&[2021]", _
"[Dimension Date].[Year - Week - Day].[Week Number].&[" & Worksheets("Gestion FDQ").Range("H68").Value & "]&[2021]", _
"[Dimension Date].[Year - Week - Day].[Week Number].&[" & Worksheets("Gestion FDQ").Range("I68").Value & "]&[2021]")

J'ai grandement besoin de votre aide :)
PS Les données sont confidentielles je ne peux envoyer le fichier en pièce jointe.