Liste de diffusion dans mail automatique

Bonjour,

Je souhaite généré un mail depuis excel avec une liste de diffusion.

Ma macro fonctionne. Elle fait excatement ce que je voulais mais je souhaiterai avoir une liste de diffusion à partir d'un tableau plutôt que de rentrer les adresses dans le code.

Voici le code que j'ai fait:

Option Explicit

Sub envoi_mail()

Dim OL As Object, myItem As Object, wDoc As Object, rng As Object

Dim nb_lignes As Integer

Set OL = CreateObject("Outlook.Application")

Set myItem = OL.CreateItem(olMailItem)

Sheets("MAIL COT").Activate

' On prépare le mail en rentrant les paramètres : adresse des destinataires, en copie, objet du mail, corps du mail

With myItem

.To = "monsieurX@mail"

.CC = "monsieurY@mail"

.Subject = " JNC H/K J-1 17h du " & Range("I2")

.BodyFormat = olFormatHTML

.Display

Set wDoc = myItem.GetInspector.WordEditor

' Premier tableau

Range("A1:X65").CopyPicture

wDoc.Application.Selection.Paste

End With

Set OL = Nothing

Set myItem = Nothing

Set wDoc = Nothing

End Sub

Merci aux personnes qui pourront m'aider