Verifier qu'un RDV est existant dans outlook depuis excel

[ccharvet1]

Bonjour au forum,

Dans un userform, je souhaite créer des RDV avec la vérification pour éviter les doublons.

En fouillant un peu, j'ai trouvé ceci et apporté quelques modif à ma convenance

Sub RDVExistant()
Dim OutlApp As New Outlook.Application
Dim OutlMapi As Outlook.Namespace
Dim OutlFolder As Outlook.MAPIFolder
Dim OutlAppointment As Outlook.AppointmentItem
Dim OutlItems As Outlook.Items
Dim DateDebut As String

DateDebut = TextBox1.Value & " " & TextBox4.Value

Set OutlMapi = OutlApp.GetNamespace("MAPI")
Set OutlFolder = OutlMapi.GetDefaultFolder(olFolderCalendar)
Set OutlItems = OutlFolder.Items
 
On Error Resume Next
Set OutlAppointment = OutlItems.Find("[Start] = '" & DateDebut & "'")
On Error GoTo 0

If OutlAppointment Is Nothing Then
    UserForm6 'Message qui affiche qu'un "RDV va être créer...", extinction de l'UserForm6 au bout de 3 secondes
    NouveauRDV_Calendrier 'Macro pour la création du nouveau RDV
Else
    MsgBox "Un Rdv déja prévu à cette date:" & vbCrLf & _
        OutlAppointment.Subject
End If
End Sub

Ça ne fonctionne pas,
je créer un RDV pour Lundi 23 Avril 2012 sachant qu'il y a déjà un RDV de prévu à cette date,
un message devrait s'afficher pour dire "Un Rdv déja prévu à cette date" et bien non il affiche "RDV va être créer dans votre agenda" et créer ce nouveau RDV à la même période.

Pouvez-vous m'aidez ? Merci