Code vba envoie de mail à plusieurs déstinataire

Bonjour,

J'ai trouvé ce code vba qui fonctionne très bien, mais j'aimerai plutôt que de rentrer manuellement l'adresse mail faire référence à une plage d'une feuille du classeur.

Pouvez-vous m'indiquer la marche à suivre ?

Merci,

Sub sendMail2()
Dim envoyerA As String, envoyerCc As String, Subject As String

' Indiquer ici l'adresse mail à laquelle il faut envoyer le message :
envoyerA = "***@***" ' Indiquer ici l'adresse mail à laquelle il faut envoyer le message en copie carbone (Cc) :
envoyerCc = ""
' Indiquer ici le sujet de l'e-mail :
Subject = "Test"

Dim s As Object
Dim docMail As Object
Dim body As Object
Dim stream As Object
Set s = CreateObject("Notes.NotesSession")

Set db = s.CurrentDatabase
s.ConvertMIME = False ' Do not convert MIME to rich text

'Create email to be sent
Set docMail = db.CreateDocument

With docMail
.Form = "Memo"
.SendTo = envoyerA
.copyTo = envoyerCc
.Subject = Subject
.From = s.COMMONUSERNAME
.ReplyTo = s.COMMONUSERNAME
'.Principal = FROM ADDRESS
End With

Set stream = s.CreateStream
Set body = docMail.CreateMIMEEntity
Call stream.WriteText("<h1>Hello, World!</h1><ul><li>Une</li><li>Liste</li><li>À</li><li>Puce</li></ul>")

Call body.SetContentFromText(stream, "text/html;charset=iso-8859-1", ENC_IDENTITY_8BIT)

Call docMail.SEND(False)
Set docMail = Nothing
Set body = Nothing
Set stream = Nothing

MsgBox "Message envoyé"
End Sub