remplacement de PivotItem

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