Macro conditionnée par fenetre POP UP

Bonjour à tous

j'ai récupéré une macro qui permet d'envoyer un email automatique lors d'une modification de fichier Excel et enregistrement du fichier.

Hors cela envoi un mail même lors de modifications mineures.

j'aimerais pouvoir rajouter en haut de pile une fenêtre pop up avec un message du genre : "souhaitez vous envoyer un email?" qui activerai la macro en fonction de la réponse.

la macro en question :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = CreateObject("outlook.application")

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "cyril@adresse.com"

monmail.Subject = "Modifs"

monmail.Body = "Modifications enregistrées dans le fichier trucmuche"

monmail.Send

Set ol = Nothing

End Sub

Est ce que quelqu'un pourrais m'aider?

merci beaucoup!!

Christine