sélection de toutes les valeurs du croisé dynamique en VBA

[OliverForDan]

toutes mes excuses à tous : Bonjour,

comment sélectionner toutes les valeurs du croisé dynamique sans les reprendre une à une comme ci-dessous

With ActiveSheet.PivotTables("BL1").PivotFields("Coulée")
.PivotItems("1806330").Visible = True
.PivotItems("1806340").Visible = True
.PivotItems("1806350").Visible = True
.PivotItems("1806360").Visible = True

End With
=====>>>et transformer en quelque chose qui ressemble à la commande ci-dessous..

With ActiveSheet.PivotTables("BL1").PivotFields("Coulée")
.PivotItems(???tous???).Visible = True

End With