Création d'une macro pour envoyer un mail

'code VBA de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    'plage a adapter:
    If Not Application.Intersect(Target, Range("A2: A20")) Is Nothing And Target = "passer commande" Then
        'appel sub routine envoi mail via Outlook
        Envoidu_MailAutomatique
    End If
End Sub

'Code dans un Module
Sub Envoidu_MailAutomatique()
    'On Error Resume Next
    ' Envoie automatiquement le mail lorsque le délai de livraison est arrivé,
    '
    ' Touche de raccourci du clavier: Ctrl+e
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
    Dim Plage_DL As Range
    Dim cel As Range

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    strbody = "texte du corps"
    With OutMail
        .To = "xxxxxxxxx@xxxx.xx"          ' a modifier
        .CC = ""                                      ' a modifier si besoin
        .BCC = ""                                    ' a modifier si besoin
        .Subject = "Texte du sujet"
        .Body = strbody
        'piece-jointe si existe
        '.Attachments.Add ("C:\test.txt")
        'ouverture de Outlook et clic sur envoyer
        '.Display
        'sans ouverture de Outlook
        .Send
    End With
    'attente envoi @Mail par Outlook
    'Application.Wait Application.Wait(Now + TimeValue("0:00:01"))
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub