Sub requeteTCD()
Dim Pvt As PivotTable
'Définit le TCD dans la feuille
Set Pvt = Worksheets("Résultats").PivotTables("Tableau croisé dynamique1")
'Renvoie la valeur 'Somme ca 2002', pour le champ 'reference' égal à 35
Range("F10") = Pvt.GetData("'Somme ca 2002' 'reference' '35'")
End Sub