probleme macro graphique

bonjour,
j'essaie de faire tourner cette macro mais il m'indique error fin debogage au niveau ActiveSheet.Shapes.AddChart.Select

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("D9:G9,D15:G15").Select
    Range("D15").Activate
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'synthese'!$D$9:$G$9;'synthese'!$D$15:$G$15")
    ActiveChart.ChartType = xlColumnStacked
    Application.ActivePrinter = "Adobe PDF sur Ne04:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF sur Ne04:"",,TRUE,,FALSE)"
End Sub

Merci

Sub Macro1() Dim Plage As Range With Sheets("synthese") Set Plage = .Range("D9:G9,D15:G15") .Shapes.AddChart With .ChartObjects(.ChartObjects.Count).Chart .SetSourceData Source:=Plage Set Plage = Nothing .ChartType = xlColumnStacked End With End With 'Application.ActivePrinter = "Adobe PDF sur Ne04:" 'ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Adobe PDF sur Ne04:"",,TRUE,,FALSE)" End Sub