Sub Macro1()
'
' Macro1 Macro
'
'
With ActiveChart.PivotLayout.PivotTable.PivotFields("Typologie1")
.Orientation = xlRowField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("mois2")
.Orientation = xlRowField
.Position = 2
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("Typologie2")
.Orientation = xlColumnField
.Position = 1
End With
ActiveChart.HasDataTable = False
ActiveChart.ChartType = xlColumnStacked
End Sub