Format des cellules d'un tcd via une macro

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.