Rester sur la page active

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
With Me.ChartObjects("Graphique 1")
    With .Chart.SeriesCollection(1).Points(1)
        With .Border
            .Weight = xlThin
            .LineStyle = xlAutomatic
        End With
        With .Interior
            .ColorIndex = 37
            .Pattern = xlSolid
        End With
    End With
    With .Chart.SeriesCollection(1).Points(2)
        With .Border
            .Weight = xlThin
            .LineStyle = xlAutomatic
        End With
        With .Interior
            .ColorIndex = 40
            .Pattern = xlSolid
        End With
    End With
    With .Chart.PlotArea
        With .Border
            .ColorIndex = 16
            .Weight = xlThin
            .LineStyle = xlContinuous
        End With
        With .Interior
            .ColorIndex = 2
            .PatternColorIndex = 1
            .Pattern = xlSolid
        End With
    End With
End With
End Sub