bonjour à toutes/tous!!

je souhaiterai compléter mon code ci-dessous afin de pouvoir mettre en forme les données de mon tcd généré via macro vba pour excel en format : séparateur de milliers+ pas de décimales+ négatifs en rouge.
Je n'ai réusssi à trouver la/les ligne(s) de code me permettant d'arriver à mes fins malgré quelques heures de recherche sur le net.

CODE
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sheets("TCD").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [BRP!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
    TableDestination:="TCD!R3C1", _
    TableName:="TCD", DefaultVersion:=xlPivotTableVersion10
    With Sheets("TCD").PivotTables("TCD")
    .AddFields RowFields:="Type traité"
    .PivotFields("Montant").Orientation = xlDataField
FIN CODE

Merci beaucoup de votre aide à venir!
@+