mise en forme TCD via macro vba

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:

---

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!
@+

Peut être (pas testé)

Code:

---

1 2 3 4 5 6 7

With Sheets("TCD").PivotTables("TCD") .AddFields RowFields:="Type traité" With .PivotFields("Montant") .Orientation = xlDataField .NumberFormat = "#,##0;[Red]-#,##0" End With End With

---

ok marche parfaitement....:ccool:

merci beaucoup!