Sub Pour_Etude()
Dim Graph As Object, rng As Range
Set rng = ActiveSheet.Range("A1:A20,C1:D20,F1:F20")
Set Graph = ActiveSheet.Shapes.AddChart2
Graph.Chart.SetSourceData Source:=rng
Graph.Chart.ChartType = xlBarStacked100
Graph.Chart.ChartGroups(1).GapWidth = 500
Graph.Chart.ChartGroups(1).GapWidth = 0
End Sub