MACRO definir une liste d'email

Bonjour,

Voici une macro qui permet d'envoyer silmutanément à plusieurs personnes le meme mail.

Or je n'arrive pas a définir ma liste de déstinataire.

Les Emails des personnes se trouvent dans la colonne G de mon tableau principal (G2 a G5000)

Sub Test()

Dim ObjOutlook As New Outlook.Application

Dim OutlookItem

Dim Plage As Range

Set ObjOutlook = New Outlook.Application

Set OutlookItem = ObjOutlook.CreateItem(olMailItem)

OutlookItem.To = QUOI METTRE ICI SACHANT QUE MA LISTE DE MAIL EST EN COLONNE G

OutlookItem.Subject = "Objet"

OutlookItem.Body = "This works great, no warning message from Outlook!"

OutlookItem.Display

End Sub

Merci a tous pour vos réponses.

Bonjour

Facilement adaptable, Un Code de Dan dans ce fichier

Cordialement