Suppression et création de RDV Outlook

Bonjour à toute l'équipe,

Je ne suis pas une experte en VBA et je bloque sur un point donc je vous demande votre aide.

Un sujet similaire a déjà été posté il y a quelques années mais il ne résout pas mon problème.

J'ai un fichier de relance Excel. J'arrive sans problème à mettre ma date de relance dans mon calendrier Outlook.

Seulement dès que je rajoute une ligne, il me remet les rappels déjà crées...

J'ai donc pensé, avant de créer les rappels, supprimer tous les rappels présent dans Outlook et correspond au nom du client + date de rappel.

Et la je beug!!!! je n'arrive pas à supprimer mes RDV.

Je vous mets mon code pour créer les rappels:

Dim DLig As Long, Lig As Long

Dim OutObj As outlook.Application

Dim OutAppt As outlook.AppointmentItem

Dim DateRdv As Date, FlgRdv As Boolean

' Créer une instance d'Outlook

Set OutObj = CreateObject("outlook.application")

' Avec la feuille

With Sheets("Suivi")

DLig = .Range("D" & Rows.Count).End(xlUp).Row

' Pour chaque ligne

For Lig = 5 To DLig 'ligne 5 = premiere ligne du tableau

' Si une date de relance existe

If .Range("I" & Lig) <> "" Then 'colonne I = date de relance

' Si un RDV n'a pas déjà été créé

FlgRdv = True

Else

FlgRdv = False

End If

' Si le FLAG est à vrai on créé le RDV

If FlgRdv Then

DateRdv = Range("I" & Lig)

Set OutAppt = OutObj.CreateItem(olAppointmentItem)

With OutAppt

.Subject = "Rappeler " & Sheets("Suivi").Range("D" & Lig) 'colonne D= nom du client

.Start = DateRdv & " 08:00"

.Duration = 30

.ReminderSet = True

.Save

End With

End If

Next Lig

End With

Set OutAppt = Nothing

Voilà, mais comment faire pour ne pas avoir de doublon à chaque fois que je clique sur le bouton suite à un ajout de ligne ou une non modification d'une date de relance

Un grand merci à vous!