exporter cellule dans powerpoint avec VBA

Bonjour,
je souhaite exporter mes données excel dans un fichier powerpoint déjà préexistant.
L'idée est qu'il se remplisse au fur et à mesure que les cellules excel se remplissent.
J'arrive à exporter une cellule dans mon fichier mais elle se place automatiquement en haut à gauche et crée un nouveau rectangle.
Je n'arrive pas à placer le contenu de cette cellule (exemple C1 contient "oui") dans un rectangle préexistant. (le rectangle est nommé par Powerpoint "Rectangle 4")
Quelqu'un aurait-il une solution ??
je vous joins mon code en l'état.
merci d'avance


Code :
Sub powerpointexportation()

Dim ppt As Object
Dim Pres As Object
Set ppt = CreateObject("PowerPoint.Application")

ppt.Visible = True
Set Pres = ppt.Presentations.Open(Filename:="G:\z-Comm\YBR\base de données\bdd\fiche entreprise bdd test.ppt")

Sheets("base").Select
Sheets("base").Cells(1, "c").Activate
Sheets("base").Cells(1, "c").Copy

Pres.slides(1).Shapes.Paste

Pres.Save

ppt.Quit

End Sub