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 ?

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 ...