Bonjour,
Merci pour cette proposition.
J'ai finalement modifié le code que je mets ci-dessous, à toutes fins utiles.
Sub LireCalendriersOutlookAvecSousCalendriers(ByVal Folder As Object, ByVal DateDebut As Date, ByVal DateFin As Date)
Dim OutlookFolder As Object
Dim OutlookAppointment As Object
Dim i As Integer
With Worksheets("LitCalendrier")
Ligne = Cells(Rows.Count, 6).End(xlUp).Row + 1
' Boucle à travers les rendez-vous du calendrier actuel
For i = 1 To Folder.Items.Count
Set OutlookAppointment = Folder.Items(i)
' Vérifie si la date de début du rendez-vous est dans la plage spécifiée
If OutlookAppointment.Start >= DateDebut And OutlookAppointment.Start <= DateFin Then...