Dates dans Excel vers outlook calendar

Bonjour,

Débutant dans VBA, j'ai réussi à créé une macro me permettant d'envoyer les dates de ma colonne M directement dans mon calendrier outlook.

Désormais, petit problème après avoir fait un "bouton" sur lequel j'ai affecté ma macro, dès que je clic, il me remet dans outlook les évènements déjà créés au précédent clic.

Quelle ligne de code puis-je ajouter pour qu'il ne créé pas d’événements s'il y en a déjà un du même nom à cette endroit ?

Voici le code actuel :

Sub CreateOutlookEvent()

Dim OutlookApp As Outlook.Application
Dim OutlookCalendar As Outlook.Folder
Dim EventItem As Outlook.AppointmentItem

Set OutlookApp = New Outlook.Application
Set OutlookCalendar = OutlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)

For Each Cell In Range("M12:M100")
If Not IsEmpty(Cell) Then
Set EventItem = OutlookCalendar.Items.Find("[Start] = '" & Cell.Value & "' AND [Subject] = 'Ouverture offres AI'")
If EventItem Is Nothing Then
Set EventItem = OutlookApp.CreateItem(olAppointmentItem)
With EventItem
.Subject = "Ouverture offres AI"
.Start = Cell.Value
.Save
End With
End If
End If
Next Cell

End Sub

Merci d'avance pour vos réponses.