Creer un champ calcule dans un TC avec insertion de finction IF

Bonjour,

je rencontre un probleme lorsque je souhaite inserer un champ calcule dans un TCD incluant des fonctions IF.

Mon objectif est de calculer des evolutions de Marges mais lorsque je rencontre des valeurs negatives, les evolutions sont fausses (au sens de l'interpretation. Ex : -50 devient -10 = -500 % d'evol).

Voici la formule que j'aimerais integrer dans mon champ calcul, elle fonctionne sur Excel mais je n'arrive pas a la transposer en VBA. En gras dans la macro la formule que je veux remplacer

=IF((' MARGIN (N-1)'>0)*AND('MARGIN'>0);('MARGIN'-'MARGIN (N-1)')/'MARGIN (N-1)';IF(('MARGIN (N-1)'<0)*AND('MARGIN'<0);-('MARGIN'-'MARGIN (N-1)')/'MARGIN (N-1)';IF(('MARGIN (N-1)'<0)*AND('MARGIN'>0);-('MARGIN'-'MARGIN (N-1)')/'MARGIN (N-1)';('MARGIN'-'MARGIN (N-1)')/'MARGIN (N-1)')))

Sub Macro1()

'

' Macro1 Macro

'

ActiveSheet.PivotTables("PivotTable1").CalculatedFields.Add "Margin Evol. %", _

"= ('MARGIN'-'MARGIN (N-1)' )/'MARGIN (N-1)'", _

True

End Sub

Voyez-vous une solution ?

Merci