exporter des données excel vers powerpoint

bjr! g essayé grace a ce forum de faire une macro excel qui, suivant la valeur de la cellule ('ok' ou 'nok'), colore une forme dans powerpoint(vert ou rouge). Un nom a été attribué a cette forme (un rond) dans powerpoint ('f01'). malheureusement, qd j'execute la macro cela me met une erreur 429, 'Un composant activex ne peut pas créer d'objet'. Comment résoudre cette erreur??
voici la macro:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'nécéssite d'activer la reference Microsoft Powerpoint 10.0 Object Library
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject('Powerpoint.Application')
PptApp.Visible = True '
Set PptDoc = PptApp.Presentations.Open('C:\\pres2.ppt') 'adapter le chemin
Set PptDoc = ActivePresentation.Slides(3)
With PptDoc
If Range('J18') = 'OK' Then .Slides(3).Shapes('f01').Fill.ForeColor.RGB = RGB(0, 255, 0) Else .Slides(3).Shapes('f01').Fill.ForeColor.RGB = RGB(255, 0, 0)
.Save 'sauvegarder la presentation
End With
PptDoc.Close 'fermer la presentation sauvegardée
PptApp.Quit 'fermer powerpoint
End Sub

PS: j'aiactiver la reference Microsoft Activex Data 2.0 library dans excel et j'ai autoriser les applications activeX dans le panneau de config ms ca ne fait rien!

Merci pour votre aide!