Calculer les valeurs dans un Pivot Table avec code VBA

Bonjour tout le monde,

Je réalise un PivotTable pour gérer les types défauts d'une machine au cours de la production en utilisant une macro, la création de la PivotTable est faite, par contre j'ai besoin de réalisé des calcules.

Le premier calcule voila la syntaxe que je voulais : je dois nommé une nouvelle colonne "pareto" et pour le calcule je prends (shift 1 / totale production)*100

le deuxième calcule est liée au premier ça veux dire je dois calculé le cumulé.

J'ai besoin de votre aide s'il vous plait.