Supprimer ou Mise à jour de rendez-vous outlook

Salut Forum,

ce petit code qui me permet d'exporter mes tâches MsProject dans mon calendrier Outlook, et qui envoie automatiquement des courriels aux fournisseurs associés

Malheureusement je n'arrive pas à faire la mise à jour des appointments lorsqu'il y a des changements

pouvez-vous m'aider

j'aimerais que le vérification se fasse sur le nom de la tâche .Name, sur la .Categories
Le nom du calendrier se retrouve en combobox1 et la catégorie en combobox2

Je voudrais changer toutes les autres cases sur la ligne

Aussi: si le le rdv n'existe pas un msgbox qui demande si on veut supprimer dans le calendrier?

Merci!

J'ai mis en commentaire la section que je ne suis pas capable d'écrire correctement

Dites moi s'il vous manque un détail ou si vous avez besoin d'un fichier

Private Sub CommandButton1_Click()
On Error Resume Next
    Dim rdv As Outlook.AppointmentItem
    Dim calendrier As Outlook.Folder
    Dim t As Task
    Dim pj As Project
    Dim rdvcheck As Outlook.AppointmentItem

    Set calendrier = dic_calendriers(Me.ComboBox1.Value)

    Set pj = ActiveProject

    For Each t In pj.Tasks

'        For Each rdvcheck In calendrier.Items
'    If InStr(rdvcheck.Subject, t.Name) <> 0 And InStr(rdvcheck.Categories, Me.ComboBox2.Value) <> 0 Then
'        'Debug.Print "Modifié: " & oAppt.Subject & " - " & oAppt.Start
'       rdvcheck.Start = Replace(rdvcheck.Start, rdvcheck.Start, t.Start)
'       rdvcheck.End = Replace(rdvcheck.Finish, rdvcheck.Finish, t.Finish)
'       rdvcheck.Send
'        rdvcheck.Save

'Next
'Else
       Set rdv = calendrier.Items.Add

        With rdv
            .Subject = t.Name
            .Start = t.Start
            .End = t.Finish
            .Categories = Me.ComboBox2.Value
            .Recipients = t.Text1
            .Location = t.Text2
            .MeetingStatus = olMeeting
            .Send
            .Save
        End With
       ' End If
    Next t

End Sub