Creer un RDV dans un calendrier partagé autre que celui par

Bonjour,

cela faisait longtemps que je n'avais pas demandé d'aide sur ce forum mais là j'avoue que je suis tombé sur un problème trop balaise pour moi et mes nbses recherches sur google n'ont rien donné.

J'essaye donc de créer un fichier excel à partir duquel, il sera possible de créer un rendez vous dans un calendrier partagé. J'ai bien trouvé des pistes mais uniquement en ce qui concerne le calendrier par défaut d'un utilisateur. Or, le calendrier que je cherche à joidnre n'est pas celui là et le code me retourne systematiquement une erreur.

Sub test()

Dim NS As Outlook.NameSpace
 Dim objOwner As Outlook.Recipient

 Set NS = Application.GetNamespace("MAPI")
 Set objOwner = NS.CreateRecipient("John.smith@email.com")
   objOwner.Resolve

If objOwner.Resolved Then
  MsgBox objOwner.Name
Set newCalFolder = NS.GetSharedDefaultFolder(objOwner, 9).folder("Proxi").Items
End If

End Sub

getshareddefaultfolder pointe uniquement vers le calendrier par défaut, qui n'est pas partagé, et je n'arrive pas à trouver quelle formule utiliser.

Merci pour toute aide

Sebou