Sub Send_Mail_IT()
'Selection de la zone de cellule à envoyer par email
ActiveSheet.Range("A1:J43").Select
'On n'affiche pas le mail
ActiveWorkbook.EnvelopeVisible = False
'on sauvegarde automatiquement
ThisWorkbook.Save
'Options du mail, (objet, introduction, @mail, @mail cc, sujet, etc.. et la fonction SEND)
With ActiveSheet.MailEnvelope
.Item.To = "adresse@mail.1.com"
.Item.Cc = "adresse@mail.2.com"
.Item.Subject = "Mail du " & ActiveSheet.Range("N2").Value 'M2 = date, saisi dans une cellule par l'utilisateur
.Item.Send
End With
Range("N2").Select
MsgBox "Mail du " & Range("N2").Value & " envoyé" & Chr(10) & "Fichier enregistré"
End Sub