Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("toto").Copy
ActiveWorkbook.SendMail ("toto@fai.fr"), "Relevé"
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Sheets("poum").Copy
ActiveWorkbook.SendMail ("poum@fai.fr"), "Relevé"
ActiveWorkbook.Close savechanges:=False
'la partie qui suit est necessaire ?
ExitHandle:
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set oSession = Nothing
Set dbDirectory = Nothing
Set EmbedObj = Nothing
End Sub