Envoi d'un mail depuis Excel en .cc à plusieurs destinataires

Bonjour,

J'ai crée le code ci dessous, je voudrais envoyer le mail en .cc à plusieurs personnes. J'ai essayé en créant une liste mais cela ne fonctionne pas.

Les adresses mails se suivent dans le fichier et sont sur la même colonne. Si quelqu’un a une idée je suis preneur.

Sub EnvoiMail()

Dim MaFeuille As Worksheet
Dim Nbligne As Integer

Set MaFeuille = ThisWorkbook.Sheets("DEMANDE CODE")
Application.ScreenUpdating = False

Nbligne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A15:F" & Nbligne).Select

With Selection.Parent.MailEnvelope.Item
.To = MaFeuille.Range("M1").Value
.CC = MaFeuille.Range("M6").Value
.Subject = MaFeuille.Range("M3").Value
.Send

End With

MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRAMTION ENVOI MAIL"

End Sub

Merci d'avance

Cordialemednt.

Bonjour,

C'est très vague tout ça.

Peux-tu poster un exemple anonymisé montrant comment sont disposées tes données ?

Merci de ta réponse,

Entre temps j'ai trouvé la solution en créant une liste qui s"arrête sur la dernière ligne et que génère les copies de mail.

Cordialement

Xavier

Nickel !

J'allais te proposer quelque chose dans ce genre, mais sans savoir où étaient vraiment tes données et comment c'était organisé :

Sub EnvoiMail()

Dim MaFeuille As Worksheet
Dim Nbligne As Integer
Dim Mails as string
Set MaFeuille = ThisWorkbook.Sheets("DEMANDE CODE")
Application.ScreenUpdating = False

Nbligne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A15:F" & Nbligne).Select

Mails = Range("M6").Value
    For Each cell In Range("M7:M20")
        If cell.Value = "" Then Exit For
            Mails = Mails & ";" & cell.Value
    Next

With Selection.Parent.MailEnvelope.Item
.To = MaFeuille.Range("M1").Value
.CC = Mails
.Subject = MaFeuille.Range("M3").Value
.Send

End With