Sub envoiMailEtFeuilleActive()
Sheet("MM").Select
Dim OutApp As Object
ActiveSheet.Copy ' créée une copie de la feuille active
Dim OutMail As Object
Dim corps As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
corps = "<font style='font-family: Tahoma ;font-size: 12pt ;' color=midnightblue><p>Bonjour,</p><p>Vous trouverez ci-joint le fichier contenant les et autres documents manquants.</p><p>Merci de bien vouloir m'envoyer les documents demandées ci-joint dans le fichier.</p><p>Bonne réception</p><p>Cordialement</p><p>V<p>GESTIONNAIRE<p>03</font>"
With OutMail
.Subject = "Demandes"
.HTMLBody = corps
ActiveWorkbook.SendMail Recipients:="test@test.fr"
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End With
End Sub