ActiveWorkbook.SendMail Destinataires, Sujet
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
'MsgBox "L'email a bien été transmis aux destinataires suivants: ***@*** & ***@***"
End Sub