classement par ordre corissant-code VBA

Bonjour

Je cherche une macro qui permet de copier un tableau excel en graphe dans power point;

j'ai trouve un code mais il permet que m'ouvrir le fichier ppt sans le tableau ni le graphe:
Sub Excel_PP()

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Set PPApp = CreateObject("Powerpoint.Application")
'la on ouvre Power Point
With PPApp
.Visible = True
.Activate
End With

'on ouvre le fichier PPT
'chemin = ton dossier
PPApp.Presentations.Open Filename:=chemin & "x:\tests1.ppt"
Set PPPres = PPApp.Presentations.Item(1)

'ici on copie la plage de donnée de excel
Range("B1:F27").Select
Selection.CopyPicture xlPrinter
'on active le slide du ppt
PPPres.Slides(1).Select
PPPres.Slides(sd).Shapes.Paste
n = PPPres.Slides(sd).Shapes.Count
'comme on vient de coller un truc le numéro de l'objet que l'on à fait est le dernier, il faut donc le trouver
PPPres.Slides(1).Shapes.Item(n).Select
'tout ca c'est pour mettre l'image en haut à gauche du slide.
PPPres.Slides(1).Shapes.Item(n).LockAspectRatio = msoTrue
PPPres.Slides(1).Shapes.Item(n).Left = 0# ' bord gauche
PPPres.Slides(1).Shapes.Item(n).Top = 480# 'bord haut
PPPres.Slides(1).Shapes.Item(n).ZOrder msoSendToBack

'on sauve le ppt
PPPres.Save

End Sub

merci d'avance