Vincent

bonjour à tous,

j'ai trouvé plus simple

Sub Envoi_Mail()
Dim Sujet As String, adressesmail(3) As String, Message As String
Dim Mail, MailItem, MyItem
Dim AccuseReception As Boolean

adressesmail(1) = 'xxxxx@xxxxx.fr'
adressesmail(2) = 'xxxxxx@xxxx.fr'
adressesmail(3) = 'xxxxxxx@xxx.fr'

Sujet = 'Fiche de non conformité'
AccuseReception = True
Message = 'une fiche de non conformité a été ouverte aujourd'hui par le secteur ' & ComboBox2.Value & ' pour ' & ComboBox1.Value & ' ' & TextBox3.Value & ' et concerne le ' & ComboBox3.Value

Set Mail = CreateObject('Outlook.Application')
Set MyItem = Mail.CreateItem(MailItem)
With MyItem
.To = adressesmail(3)
.cc = adressesmail(2) & ';' & adressesmail(1)
.Subject = Sujet
.Body = Message
.Send
End With

End Sub