Format des cellules d'un tcd via une macro

[jaroddu94]

Bonjour,

Voici mon souci, je voudrai ajouter de la couleur et mettre en gras certaines parties de mon tcd, exemple mettre en gras et couleur les sous totaux de UO :
.PivotFields("UO").Orientation = xlRowField

Quand j'enregistre cela me donne ça mais ça plante :

ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotSelect _
"UO[All;Total]", xlDataAndLabel, True
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With

Y'a t-il pas un truc plus simple ??

Merci.