Sub supprime()
Dim OutlApp As New Outlook.Application
Dim OutlItems As Outlook.Items
Dim OutlMapi As Outlook.Namespace
Dim OutlFolder As Outlook.MAPIFolder
Dim Cell As Range
Dim appt As Outlook.AppointmentItem
'plage de donnée
For Each Cell In Range("A2:A" & Range("A6000").End(xlUp).Row)
'fin de plage de donnée
'Crée la sélection du calendrier dans Outlook
Set OutlApp = CreateObject("Outlook.Application")
Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Folders("prospection").Items ' Nom du calendrier - Attention calendrier ajouté en dessous du calendrier par default et nom dans un nouveau groupe.
'Set OutlItems = OutlFolder.Items ' Calendrier par default
If OutlItems.Count > 0 Then
OutlItems.Remove OutlItems.Count
DoEvents
End If
Next
ajout
End Sub