Macro pour envoi de mails via Excel selon liste de mails variable

Bonjour

j'utilise excel 2016

j'ai dans un onglet, une liste de mails ( la longueur peut varier en fonction du pays choisi dans le segment)

je souhaiterais qu'une macro envoi un mail unique à toutes ces personnes : en gros, il faudrait que la macro concatene chaque email jusqu a ce que la cellule suivante soit vide. Je pense que c'est possible, pouvez vous m aider ?

merci par avance et bonne journée

Bonjour

voici un code qui va te mettre dans une variable la liste des destinataires..

Sub teste()

Dim liste$
Dim i As Integer

For i = 3 To [A655365].End(xlUp).Row
liste = liste & Cells(i, "A") & ";"
Next
liste = Mid(liste, 1, Len(liste) - 1)
End Sub

si c'est oulook qui est utilisé pour l'envoi du mail le séparateur est ";" a adapter en conséquence en fonction du client de messagerie utilisé

Fred

et donc pour l'envoi avec Outlook..

Dim OutlookApp As Object
Dim OutlookMail As Object

Set OutlookApp = CreateObject("outlook.application")
    Set OutlookMail = OutlookApp.createitem(0)

        With OutlookMail
        .Subject = "sujet"  'sujet du mail
        .To = liste
        '.bcc = 
'        .body = "Mon message"
        '.Attachments.Add ActiveWorkbook.Path & "\" & nomfic 'pour attacher un message si necessaire
        .Display 'prepare le mail 
        '.Send 'on envoie le mail créé
        End With
    End If
    End If

Fred