format pourcentage dans tcd en passant par le vba

Bonjour

je viens vers vous pour vous demander un renseignement j'ai un tableau croisé dynamique qui se met à jour grâce à un code VBA

Mon problème étant je souhaiterais que le format soit au format pourcentage...le faire manuelle ment ne pose pas de problème
j aurrais voulu intergrer cette fonction au code ci dessous

Code vba
Dim PT1 As PivotTable Set PT1 = Sheets("TCD").PivotTables("Tableau croisé dynamique1") With PT1 .PivotCache.Refresh .AddDataField PT1.PivotFields(Format([Base!P1], "mmm-yy")), "Somme de " & Format([Base!P1], "mmm-yy"), xlSum
End With


merci a tous et bonne soirée

Bibbip35