VBA EXCEL et RDV Outlook

Bonjour,

J'ai trouver un petit code sympas qui me permets d'inscrire un RDV Outlook via excel (qui fonctionne à merveille d'ailleurs...)
Le truc c'est que je souhaiterai inscrire le RDV sur un autre planning (sur lequel j'ai les droits "éditeur") , et pas sur le mien "planning actif". L'autre planning s'appelerait ici "toto"

Je n'arrive pas à réadapter le code... pouvez-vous m'aider.

voici le code :
[code]
'procédure permettant d'ajouter un rdv dans un calendrier outlook
Sub AjoutRDVCalendrier()

'déclaration des variables
Dim oOutlook As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.Namespace
Dim DossierCalendrier As Outlook.MAPIFolder

'gestion d'erreurs
On Error GoTo Err_Execution

'on crée ensuite les objets
Set oOutlook = CreateObject("Outlook.Application")
Set namespaceOutlook = oOutlook.GetNamespace("MAPI")

'définit le dossier calendrier
'GetDefaultFolder renvoit le calendrier du compte actif
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)

'on crée un nouveau rendez-vous
Set oAppointment = DossierCalendrier.Items.Add

'on renseigne ensuite les principaux paramètres
With oAppointment
.Start = "09/05/2016 12:00:00"
.Duration = 60 'durée de rdv, en minutes
.Subject = "Essai RDV" 'Sujet du rdv
.Body = "" 'corps du texte de la réunion
.Location = "" 'Lieu du rdv
'on sauvegarde et ferme
.Save
.Close (olSave)
End With

'Libération des variables.
Set oAppointment = Nothing
Set oOutlook = Nothing

Fin_Execution:
Exit Sub
Err_Execution:
MsgBox Err.Description, vbExclamation
Resume Fin_Execution
End Sub
[code]

Merci à Vous
Joss