Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Sheets("Montants en Euros").Select
    ActiveChart.SeriesCollection(2).Select
    ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _
        "rxeuroactivglob"
    ActiveChart.HasPivotFields = False

End Sub