Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = "Destinataire1@domaine.fr"
Destinataires(2) = "Destinataire2@domaine.fr"
Destinataires(3) = "Destinataire3@domaine.fr"
Sujet = "Objet éventuel de l'envoi"
AccuseReception = True
ThisWorkbook.Sheets("taPage").Copy
ActiveWorkbook.SendMail T, Sujet, AccuseReception
ActiveWorkbook.close false
End Sub