Suppression contact outlook

   Bonjour,

J'aimerais supprimer un contact Outlook à partir d'une macro Access.
J'arrive bien à ajouter le contact grâce à ca :

   Dim myOlApp As New Outlook.Application
   Dim myNameSpace As NameSpace
   Dim myFolder, myFolders, myContactFolder As MAPIFolder
   Dim myNewContact As Outlook.ContactItem

   Set myOlApp = CreateObject("Outlook.Application")
   Set myNameSpace = myOlApp.GetNamespace("MAPI")
   Set myFolder = myNameSpace.Folders("Dossiers publics")
   Set myFolders = myFolder.Folders("Favoris")
   Set myContactFolder = myFolders.Folders("Contacts logicarch")
   Set myNewContact = myContactFolder.Items.Add(olContactItem)
   With myNewContact
        .FirstName = Me.sf_contact!CON_PRENOM
        .LastName = Me.sf_contact!CON_NOM
        If Not IsNull(Me.sf_contact!CON_MAIL) Then
            .Email1Address = Me.sf_contact!CON_MAIL
        End If
        .CustomerID = Me.sf_contact!CON_ID
        .BusinessTelephoneNumber = Me.sf_contact!CON_TEL
       
        If Not IsNull(Me.sf_contact!CON_FAX) Then
            .BusinessFaxNumber = Me.sf_contact!CON_FAX
        End If
        If Not IsNull(Me.sf_contact!CON_PORTABLE) Then
            .MobileTelephoneNumber = Me.sf_contact!CON_PORTABLE
        End If
        .CompanyName = Me.SOC_NOM
        If Not (IsNull(Me.sf_contact!CON_ADRESSE1) Or IsNull(Me.sf_contact!CON_ADRESSE2)) Then
             .MailingAddressStreet = Me.sf_contact!CON_ADRESSE1 & " " & Me.sf_contact!CON_ADRESSE2
        End If

        .FileAs = Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & ")"
       
        If Not IsNull(Me.sf_contact!CON_VILLE) Then
        .MailingAddressCity = Me.sf_contact!CON_VILLE
        End If
       
        .Save
   End With
    MsgBox "Contact Ajouté"
    Set myOlApp = Nothing

Donc l'ajout ce fait grâce à ce code. Maintenant j'aimerais ajouter le contact que quand il n'existe pas déjà et si il existe déjà savoir si il faut le mettre à jour ou annuler .

help