VBA Excel/ppt Un composant ActiveX ne peut pas créer d'objets...

Bonjour,

Je cherche à générer à partir d'un fichier Excel, des "fiches powerpoint" via des collages par métafichiers amméliorés en vba. Pour cela, j'ai utilisé la macro ci-dessous mais j obtiens l'erreur 429 pour la ligne en rouge. Je suis sous Office 2010 et j ai bien activé la librairie ppt sur vba.
Pouvez vous m'aider svp?

Sub Bonjour()

Dim PptDoc As PowerPoint.Presentation
Dim i As Integer

Set objApp = CreateObject("PowerPoint.Application")

With objApp
.Activate
.Presentations.Open Filename:="C:\Users\Antoine\Desktop\Essai\Présentation1.pptx", ReadOnly:=msoFalse
End With


For i = 1 To 10

Sheets("Powerpoint").Select
Range("B4:H20").Select
Selection.Copy

With objApp
.ActivePresentation.Slides(i).Select
.ActivePresentation.Slides(i).Shapes.PasteSpecial DataType:=ppPasteMetafilePicture
End With

With ActivePresentation.Slides(i).Shapes(1)
.Left = 150
.Top = 100
.Height = 300
.Width = 400
End With

Next i

End Sub