Programmer envoi de mail Outlook depuis Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    Dim olk As Object, mail As Object
    Dim adresses_mail As Range, destinataire As Range, modèle As Range
    
    '// assignation adresses mail aux cellules remplies de la colonne A
    Application.EnableEvents = False
    Set adresses_mail = Me.Columns("A").SpecialCells(xlCellTypeConstants)
    Application.EnableEvents = True
   
    '// selection unique d'une adresse mail
    If Not Intersect(Target, adresses_mail) Is Nothing _
    And Target.Count = 1 Then
        Set destinataire = Target               'destinataire = adresse mail de la cellule sélectionnée
        Set modèle = destinataire.Offset(, 1)   'modèle décalé d'une colonne par rapport au destinataire
    
        Set olk = CreateObject("outlook.application")   'création instance application Outlook
        Set mail = olk.CreateItemFromTemplate(modèle)   'création mail à partir du modèle
        With mail
            .to = destinataire
            '.Attachments.Add ("....pdf")
            .Display
        End With
    End If

End Sub