VBA Nouveau PPT à partir d'un modèle

'### Constante à adapter ###
Const CHEMIN_MODELE As String = "C:\Program Files\Microsoft Office\Templates\Presentation Designs\Stream.pot"
'###########################

'/////////////////////////////////////////////////////////////
'/// Pour une liaison précoce nécessite Library PowerPoint ///
'/// C:\Program Files\Microsoft Office\OFFICExx\msppt.olb  ///
'/// Microsoft PowerPoint xx.0 Object Library              ///
'/////////////////////////////////////////////////////////////
Sub ModelePowerPoint()
Dim PP As Object    'PowerPoint.Application
Dim PRES As Object  'PowerPoint.Presentation
Dim SLID As Object  'PowerPoint.Slide
Set PP = CreateObject("Powerpoint.Application")
Set PRES = PP.Presentations.Add(msoTrue)
Set SLID = PRES.Slides.Add(1, 2)    '2 = ppLayoutText
PRES.ApplyTemplate Filename:=CHEMIN_MODELE
PP.Visible = True
Set SLID = Nothing
Set PRES = Nothing
Set PP = Nothing
End Sub