Envoie d'un mail lors de la modification

Bonjour à tous,

J'espère que vous allez bien.

J'ai fait un petit fichier qui lorsque je clique sur le bouton me crée une nouvelle feuille , copie la feuille d'origine, et supprime les infos de la feuille d'origine pour qu'elle reste toujours vierge. Et malgré tout ce que j'ai essayé je n'ai pas réussi à faire en sorte que lorsque l'on clique sur ce bouton, la macro envoie directement un mail, avec une mention du genre "Nouvelle fiche créée".

Pouvez-vous m'aider ?

Je vous remercie

Hello,

un exemple d'envoi de mail si une cellule change dans la colonne G d'une feuille.

Le corps se construit grâce aux différentes colonne de la feuille

Ps : Application.screenupdating doit TOUJOURS être remis à True en fin de code

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
        If Target.Count = 1 Then
            Dim oAPP As Object
            Dim oItem As Object
            Const olMailItem As Long = 0
            Set oAPP = CreateObject("Outlook.Application")
            Set oItem = oAPP.CreateItem(olMailItem)
            With oItem
                .To = "toto@gmail.com"
                .Subject = "PROFORMA / ACOMPTE RÉGLÉ CE JOUR"
                .Body = "REGLEMENT PROFORMA / ACOMPTE DU : " & Date & _
                    " pour le client : " & Range("A" & Target.Row) & _
                    ", pour la commande : " & Range("B" & Target.Row) & "_" & Range("C" & Target.Row) & _
                    " de " & Range("E" & Target.Row) & " € "
                 .Display 'pour affichage ou .Send pour envoyer
            End With
        End If
    End If
End Sub

Hello merci beaucoup pour ta réponse et ton conseil !