Sub envoiMailEtFeuilleActive()
'
Dim Recipients As String
'
If MsgBox("Voulez-vous vraiment envoyer le mail?", vbYesNo) = vbNo Then Exit Sub
ActiveSheet.Copy ' crée une copie de la feuille active
Recipients = Array("test1@test.fr", "test2@test.fr")
ActiveWorkbook.SendMail Recipients, Subject:="PCM" 'envoi Mail
MsgBox "Merci de vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
Shell "C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"
End Sub