Microsoft 365 completer un formulaire outlook avec VBA excel

Bonjour,
Je souhaite remplir un formulaire de RDV outlook via VBA sous excel, en repartant d'un modele .oft
J'arrive bien à creer un mail de RDV mais pas a remplir un .oft que j'aurais ouvert.
Voici mon code actuel qui fonctionne mais qui part d'un mail vierge :

Sub CreationReunion()

Dim objOutlook As Outlook.Application
Dim objReunion As Outlook.AppointmentItem
Dim objExplorer As Outlook.Explorer
Dim objSelection As Outlook.Selection
Dim Sujet

Sujet = 0
Set objOutlook = Outlook.Application
Set objExplorer = objOutlook.ActiveExplorer
Set objSelection = objExplorer.Selection
Set objReunion = objOutlook.CreateItem(olAppointmentItem)

'Corp = Range("H5:H13")
Sujet = "RDV "

With objReunion
.MeetingStatus = olMeeting
.Subject = Sujet
.Body = "test corp"

.Recipients.Add (Sheets("Feuil1").Range("B2") & "; " & Sheets("Feuil1").Range("B3"))
.Start = "01/01/2021 14:00"
.Duration = 120
.Display
' .Location = "Mon Bureau"
' .Send
' .Save
'.Close (olSave)
End With

Set objOutlook = Nothing
Set objReunion = Nothing
Set objExplorer = Nothing
Set objSelection = Nothing

End Sub