Sub test()
'SOURCE:http://www.cathyastuce.com
'forum: Re: désactivation des macros avant envoi d'un fichier excel
'//////////////////////////////////////////////
'adapter les adresses mail (ca va sans dire)
ActiveWorkbook.SendMail Recipients:=Array("ptest1@france.fr", "ptest2@france.fr", "ptest3@france.fr"), _
Subject:="Mettre le sujet"
End Sub