Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Notification As Variant ' création de la variante pour l'envoie du mail de notification
Set Notification = CreateObject("Outlook.Application") ' selection de l'application à utiliser( en utilisant la librairie "Microsoft Outlook 16.0 Object Library " )
With Notification.CreateItem(olMailItem) ' creation du mail
.Subject = "Impression Finie" ' sujet du mail
.To = Columns(28).End(xlToRight).Select ' selection le mail de la personne
.Body = "Votre demande d'impression 3D à été faite." ' texte du mail
.Send ' envoie du mail, on peut remplacer ".Send" par ".Display" pour voir a quoi ressemble le mail
End With
End sub