Salut  
 
je souhaite envoyer un mail type à plusieurs destinataires via Excel.  
Les destinataires se trouvent dans une colonne E.  
Dans la colonne F j'indique oui ou non. (oui = envoi mail)
Le problème est que j'ai un mail par destinataire ce qui est impossible à gérer. Je souhaiterai que toutes les adresses mail de la colonne E soient en destinataire dans un seul e-mail.  
 
Voici mon code :
 
 
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
 
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application" )
 
    On Error GoTo cleanup
         
   
   For Each cell In Columns("E" ).Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           LCase(Cells(cell.Row, "F" ).Value) = "oui" Then
 
            Set OutMail = OutApp.CreateItem(0)
            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "Infos"
                .Body = "Bonjour, xxxxxxxxxxxxxx"
                .Display
                 
            End With
            On Error GoTo 0
            Set OutMail = Nothing
        End If
    Next cell
 
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub
 
J'espère que je suis assez clair ^^
Par avance, merci.  

Hello,
 
je sais pas si ça marche mais essaie en envoyant un tableau a OutMail.To avec les adresses de tous les destinataires. Quelque chose comme ça :
 
   

Merci. ça fonctionne très bien.  
C'est sympa.  
 
Bonne journée