Copy excel vers powerpoint

[F2T]

Bonjour,

j'ai le code suivant.

Il m'affiche un message d'erreur a .Slides(2).Shapes.Paste....

"Shapes (unknown member)"

Comprend pas ?

Code :
Sub NouvellePresentation()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim Cs1 As ColorScheme
Dim NbShpe As Integer

Set PptApp = CreateObject("Powerpoint.Application")
Set PptDoc = PptApp.Presentations.Add

With PptDoc

'--- Ajoute un Slide
.Slides.Add Index:=1, Layout:=ppLayoutBlank
'Crée une zone de texte (AddLabel)

'insère la valeur de la Cellule A1 dans une zone de texte
Workbooks![doc1.XLSM].Sheets("DATA").Activate
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Copy
.Slides(1).Shapes.Paste


With .Slides(1).Shapes(.Slides(1).Shapes.Count)
.Name = "monTableau" 'Renomme l'objet collé
.Left = 150 'position horizontale dans le slide
.Top = 100 'position verticale dans le slide
.Height = 300 'hauteur
.Width = 400 'largeur
End With






.Slides.Add Index:=2, Layout:=ppLayoutBlank
.Slides(2).Select

Workbooks![doc2.XLSM].Activate
Sheets("tab").Range("H4:I13").Copy

.Slides(2).Shapes.Paste





End With

End Sub

Any help thanks a lot ...