Envoie multiple mail avec PJ

Bonjour,

J'aimerais effectuer plusieurs envoie de mail avec une PJ par mail avec Excel,

Du coup, j'aimerais que les informations soient reprises d'un tableau Excel voir image ci-joint.

Je ne m'y connais pas trop en VBA, j'ai essayé quelque formule, mais sans succès, j'arrive seulement à m'envoyer un mail avec une PJ que je choisis,

Pouvez-vous m'aider ??

Merci à vous.

Ci-joint l'exemple de code que j'ai utilisé.

Sub envoiMail1()

Dim Fichier As Variant

Fichier = Application.GetOpenFilename("Tous Les fichiers (*.*),*.*")

MsgBox Fichier

Dim Mamessagerie As Object

Dim MonMessage As Object

Set Mamessagerie = CreateObject("Outlook.Application")

Set MonMessage = Mamessagerie.CreateItem(0)

MonMessage.Attachments.Add Fichier

MonMessage.Subject = Range("C6").Value

contenu = Range("C7").Value

contenu = contenu & Chr(10) & Chr(13)

MonMessage.Body = contenu

MonMessage.Send

Set Mamessagerie = Nothing

MsgBox "Votre mail à bien été envoyé."

End Sub

j'ai une ligne que je n'ai pas pus mettre lors de la creation de mon post :

MonMessage

.To = "chauvierequentin

.pro@gmail

.com"