Le programe n'accepte pas link:=True, pourtant essentiel pour conserver la mise en forme du forme dans le slide.
Sub VVV()
Windows("Fichier excel macro.xlsm").Activate
Sheets("TRAME").Select
Range("B4:H14").Select
Selection.Copy
Set objApp = CreateObject("PowerPoint.Application")
With objApp
.Activate
.Presentations.Open Filename:="C:\Documents\PowerPointVBA.pptx", ReadOnly:=msoFalse
.ActivePresentation.slides(1).Select
.ActivePresentation.slides(1).Shapes.PasteSpecial(ppPasteDefault, link:=True).Select
End With
End Sub