Macro mail à plusieurs destinataires

Bonjour,

J'ai besoin d'aide...

BDD est une feuille sur laquelle mes adresses mails sont enregistrées (de A1 à A3 par exemple) avec le nom listemail. Mais ça ne fonctionne pas.

Merci pour votre aide

Voici le code :

        With CreateObject("CDO.Message")
            .From = "blabla@blabla.com"
            .To = Sheets("BDD").Range("listemail")
            .CC = ""
            .Subject = "sujet à blablater"
            .TextBody = "texte à blablater:"
            .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp blabla"
            .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Configuration.Fields.Update
            On Error Resume Next
            .Fields.Update
            .Send
            If Err.Number <> 0 Then
                MsgBox Err.Description, 16, "Erreur"
            End If
            '  On Error GoTo 0
        End With

Bonjour,

à tester,

Sub test()
For i = 1 To Sheets("BDD").Range("listemail").Count
  sto = sto & Sheets("BDD").Range("listemail")(i) & ";"
Next

With CreateObject("CDO.Message")
.From = "blabla@blabla.com"
.To = sto
.CC = ""
.Subject = "sujet à blablater"
.TextBody = "texte à blablater:"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... smtpserver") = "smtp blabla"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... serverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Fields.Update
.Send
If Err.Number <> 0 Then
MsgBox Err.Description, 16, "Erreur"
End If
' On Error GoTo 0
End With
End Sub