Copy excel vers powerpoint

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