Sub caly()
Dim mOutlookApp As New Outlook.Application
Dim mNameSpace As Outlook.Namespace
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
[COLOR="Orange"]Set myNewFolder = myFolder.Folders("calendrier communautaire").Display[/COLOR]Set myNewFolder = myFolder.Folders
End Sub