Valeurs de champ de TCD

Bonjour,

Je souhaite récupérer les valeurs d'un champ d'un TCD, mais seulement
celle qui sont visible.
Ex :

Champ de sélection SEMAINE = 1
NOM1 est visible en semaine 1, mais pas NOM2
la macro doit donc me retourner que NOM1

r = 2
With WorkSheets("TCD").PivotTables("POINTAGE")
For x = 1 To .PivotFields("NOM").PivotItems.Count
If ?????? Then
WorkSheets("TCD").Cells(r, c) =
.PivotFields("NOM").PivotItems(x).Name
r = r + 1
End If
Next
End With

J'ai mis ??? pour ce qui me manque.

Merci pour votre aide.