Modifier Champs Valeurs TCD a partir de la valeur d'une cellule

Bonjour à Tous

J'aurais une question peut être absurde

Je souhaiterais pouvoir modifier le champ valeur TCD a partir d'une valeur d'une cellule

Dans l'exemple ci-dessous
Issu de l'enregistreur de MACRO
Sheets("TCD Détail Volume - PDP").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("avril-16"), _
"Nombre de avril-16", xlCount


Je souhaiterais faire qq chose de ce style

ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields (sheets("AA").range("A1").value) ,_
sheets("AA").range("A2").value , xlCount

Est-ce réalisable en VBA ?

Merci par avance

Bibbip35