Envoi plusieurs contacts

Bonjour,

J'ai une formule pour un envoi automatique qui fonctionne parfaitement.

Mais je n'arrive pas à ajouter plusieurs contacts, j'ai tout essayé sans succés.

Cette formule ne marche que pour un contact.

Si quelqu'un pouvait m'aider

If CheckBox1 * (CheckBox5evu + CheckBox6en + CheckBox7jf + CheckBox8arbres + CheckBox9atl + CheckBox10autres) And TextBox1nom.Value <> "" And TextBox2prénom.Value <> "" And TextBox1mail.Value <> "" And TextBox5telephone.Value <> "" And TextBox3objetdemande.Value <> "" And TextBox4.Value <> "" And TextBox6lieutravaux.Value <> "" Then
Workbooks("Copie de Demande de travaux version 2 (2)").SendMail Recipients:="adresse_mail.fr", _
Subject:="demande d'intervention", _
ReturnReceipt:=True
MsgBox "Votre demande a bien été transmise"
End If

http://www.mrexcel.com/forum/excel-questions/261438-sending-email-multiple-recipients-visual-basic-applications.html

Merci pour ton lien qui fonctionne parfaitement.

Seulement mes contacts changent en fonction de 4 checkBox et ce code apparement n'accepte pas que les adresse se répetent..

J'ai essayé plusieurs formules, à chaque fois il y a quelque chose qui ne va pas et avec mon peu d'experience je n'arrive pas à trouver la solution.

Private Sub Envoyer_Click()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim adresse As String
Dim message As String
Dim sujet As String

Set OutlookApp = CreateObject("outlook.application")
Set OutlookMail = OutlookApp.createitem(0)
With OutlookMail
.Subject = sujet
.to = "jeremy@.eu;jeremy@aol.com"
.body = message
Workbooks ("Copie de Demande de travaux version 2 (2)")
.send
End With

End Sub

Voici un code qui semble coller sauf que je n'arrive pas à y mettre mon fichier "ThisWorkbook" ou "ActiveWorkbook"