Excel vers power point

Bonjour,

j'ai encore une fois besoin d'un petit coup de main sur un sujet que j'avais déjà posté, abandonné et que je remets de l'avant car la priorité revient sur le dessus de la pile.

J'ai fichier excel dont une partie (tableau) devrait être exporté vers power point en image (dans le but d'être présenté chaque jour). J'ai une formule qui est la suivante

[b]Dim ApplPPT As PowerPoint.Application

Dim objPres As PowerPoint.Presentation

Dim objSld As PowerPoint.Slide

Dim objSheet As Worksheet

Set ApplPPT = CreateObject("Powerpoint.Application")

Set objPres = ApplPPT.Presentations.Add

Set objSld = objPres.Slides.Add(1, ppLayoutBlank)

Set objSheet = ActiveSheet

objSheet.Range("C2:" & Range("H47").End(xlUp).Address).Copy

objSld.Shapes.PasteSpecial ppPasteOLEObject, link:=msoFalse

ApplPPT.Visible = True

End Sub

Voici mon problème: Le fichier que je dois recopier s'étend de C2 à H47 mais comme il est gros, la formule arrêtait de recopier quand il n'y avait plus d'écriture. Jusque la tout va bien. Par contre, elle ne semble pas tenir compte de C44 à H47 même s'il y a de l'écriture. Pouvez-vous me donner un bout de code ou m'enligner sur une solution?

Également, Est-ce possible de faire un ''auto size'' de l'image une fois rendu dans power point et de la sauver automatiquement dans un répertoire?

Merci à l'avance de votre aide toujours précieuse! je vous mets le bout de fichier en question (j'enlève ce qui est inutile)