Inserer plusieurs objet excel dans powerpoint 2007 en vba

Bonjour,

Je voudrais inserer dans un Powerpoint plusieurs objets excel,
1 objet issu de la feuil1 (A1:AK60) dans la presentation slide1, un autre objet issu de la feuil2 (A1:AK60) dans la presentation slide2

Sub insertionObjectDansPowerPoint()

Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation

Set PPT = CreateObject("Powerpoint.Application")
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open("D:\Présentation2.pptx")

et je bloque pour la suite