Sub test()
Worksheets("Synthese").Shapes.AddChart.Select
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = "Top 10"
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Range("Synthese!$A$10:$A$21;Synthese!$C$10:$F$21")
End Sub