Contrôle RDV et suppression

Bonjour,

J'ai actuellement créé un code permettant d'intégrer un rdv sur date du jour

Mais je souhaiterai d'abord qu'il vérifie s'il y'a pas déjà un rdv positionné avec le même sujet et le supprime, avant une nouvelle création..

Ci-joint mon code actuel. J'ai essayé avec delete mais je bute sur objet requis

merci pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)

ValeurJour = Target.Value

  Set myOutlook = CreateObject("Outlook.Application")
  Set myItem = myOutlook.CreateItem(1)
 myItem.MeetingStatus = olMeeting

If VarType(ValeurJour) = vbString Then
 Select Case (ValeurJour)
 Case Is = "M"
 ValeurJourf = "Ménage"
 myItem.categories = "Ménage"
' MsgBox "Congés"
 Case Is = "C"
' MsgBox "Maladie"
  ValeurJourf = "Congés"
   myItem.categories = "Congés"
 End Select
 End If

myItem.Subject = ValeurJourf
datesel = Cells(1, ActiveCell.Column)
 datejour = datesel
 datejour2 = Format(datejour, "dd/mm/yy 00:00")
myItem.AllDayEvent = True
myItem.Start = datejour2
myItem.End = datejour2
 myItem.body = a
myItem.Send
myItem.Save

End Sub

Bonjour

Si tu ne joins pas ton fichier, il sera difficile de t"aider à trouver une solution...

Bye !