Dim pp As Object, Ppf As Object
Worksheets("Feuil1").Range("B2:C4").Copy ' mettre TA plage
Set pp = CreateObject("Powerpoint.Application")
pp.Visible = True
Set Ppf = pp.Presentations.Open("D:\leficpp.pptx") ' mettre TON fichier
pp.ActiveWindow.View.Paste