Private Function fcnEmail()
ActiveSheet.Cells(1, 1).CurrentRegion.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Cet e-mail est genere automatiquement"
.Item.To = "mail@nomdedomaine.com"
.Item.Subject = "Titre"
.Item.Send
End With
Cells(1, 1).Select
End Function