remplacement de PivotItem

[chrisdu73]

Bonjour,
voila, je vroudrais dans ma macro remplacer les PivotItems qui me deselectionne dans un tableau croise certains champs par une instruction qui me selectionne d'autres champs moins nombreux

ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("NOMBRE"), _
"Somme de NOMBRE", xlSum
Cells.Select
Selection.Columns.AutoFit
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Code Forfait")
.PivotItems("CD2").Visible = False
.PivotItems("CD3").Visible = False
.PivotItems("CD4").Visible = False
.PivotItems("CD5").Visible = False
.PivotItems("CE2").Visible = False
.PivotItems("JSPA1").Visible = False
.PivotItems("PA1").Visible = False
.PivotItems("PH1").Visible = False
.PivotItems("PH2").Visible = False
.PivotItems("PL1").Visible = False
.PivotItems("PL2").Visible = False
.PivotItems("TH3").Visible = False
End With

merci pour votre aide qui sans vous je serai perdu
chris