Microsoft 365 RDV dans calendrier synchronisé

Bonjour,
Je cherche à créer un RDV sur le calendrier “Sport" qui est synchronisé sur mon PC et mon smartPhone par iCloud
Mon bout de code fonctionne sur les calendriers de mon espace professionnel « MonJob » mais pas avec le Calendrier “Sport" qui est sur « iCLoud » Les 2 espaces « iCloud » et « MonJob » sont présents dans les calendriers Outlook sur mon PC
Après plusieurs recherches, je n’arrive pas à écrire le bon code.
Merci de votre aide

Ci-dessous je colle le code que j'utilise

Sub RDVSport()

Dim oOutlook As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.Namespace
Dim DossierCalendrier As Outlook.MAPIFolder


'creation des objets
Set oOutlook = CreateObject("Outlook.Application")
Set namespaceOutlook = oOutlook.GetNamespace("MAPI")


'definit le dossier calendrier
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar).Folders.Item("Sport")

'on cree un nouveau rendez-vous
Set oApointment = DossierCalendrier.Items.Add


With oApointment
.Start = "17/9/2021"
.AllDayEvent = True
.End = "19/9/2021"
.Subject = "essai RDV SPORT"
.Save
.Close (olSave)
End With

Set oAppointment = Nothing
Set oOutlook = Nothing
End Sub

Voici une capture "anonimisée" des calendriers d'Outlook que j'ai