Sub CreateFromTemplate()
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim Chemin As String
'Recuperation du chemin pour le modèle'
'Chemin = ActiveWorkbook.Path
Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("XXXXX.oft")
'Renseignement des champs email'
.Recipients.Add ActiveSheet.Range("A2").Value
.Subject = ActiveSheet.Range("A3").Value
MyItem.Display
End Sub