Mise en forme couleur via VBA sur un tableau croisé dynamiqu

bonjour,

je vous communique une petite problematique, j'ai un tableau croise dynamique et sur le tableau j'ai besoin de mettre une mise en forme avec couleurs avec des conditions sauf que le croisé dynamique bouge selon les donnes par exemple j'ai commence par mettre le code VBA pour coulorie Q1 en rouge.

ci dessous un code que j'ai deja essaye d'optimisé à partir d'une macro mais j'arrive pas je suis desole je suis un debutant VBA

ci dessous mon code

Sub CouleurQ()
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "Q1", _
   Range("A:A").Find("Q1").Select    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Bonjour,

Merci de joindre un classeur à ta demande, avec les résultats (visuels) souhaités.

Cdlt.

ci joint le fichier avec resultats souhaites.

pour chaque "Q" j'ai besoin d'une couleurs

Re,

Une proposition qui demande réflexion.

A adapter pour les autres trimestes.

Cdlt.

Option Explicit
Public Sub CouleurQ()
Dim ws As Worksheet, pt As PivotTable, rngData As Range

    With Application
        .PivotTableSelection = True: .ScreenUpdating = False
    End With

    Set ws = ActiveSheet: Set pt = ws.PivotTables(1)
    Set rngData = _
            Intersect(pt.PivotFields("Quartile").PivotItems("Q1").DataRange.EntireRow, _
            pt.PivotFields("Agent").DataRange)
    Set rngData = _
            Union(rngData, pt.PivotFields("Quartile").PivotItems("Q1").LabelRange, _
            pt.PivotFields("Quartile").PivotItems("Q1").DataRange)
    rngData.Interior.Color = vbRed

    Set rngData = Nothing: Set pt = Nothing: Set ws = Nothing

End Sub

Good merci beaucoup je m'occupe du reste.j'ai l'aide

merci bcq