Mail Lotus, plusieurs destinataire et body selon plage

Bonjour,

Je vous remercies d'avance de votre soutiens...

J'ai trouvé un code pour envoyer un mail automatique via le VBA d'Excel. Le code fonctionnait avec une adresse mail, j'ai voulu changer pour que celui-ci prenne une plage de cellule (E43:E45) avec mes adresses mail qui change (une par cellule).

Voilà mes questions:

1) Pourriez-vous m'aider à trouver une formule qui fonctionne pour l'envoi vers plusieurs destinataires ?

2) dans le Body du message, j'aimerai qu'il copie une plage de cellule d'une autre page dans le document Sheets ("SITUATION") Range (A1:I65) Est-ce possible ?.

J'ai trouvé diverses solutions mais je n'arrive pas les appliquer....

Par exemple...

Encore merci de votre aide... Salutation

Sub SendNotesMail()
 '----------------------
 On Error GoTo ErreurNET: Err.Clear
 Dim CheminEtFichier As String, NomDuFichier As String

 NomDuFichier = "essai.txt"
 CheminEtFichier = "P:\essai.txt"

 NomDuFichier = "Essai1"
 CheminEtFichier2 = "P:\essai1.txt"
 '----------------------------------------------------------------------------------------

 Dim Maildb As Object 'The mail database
 Dim UserName As String 'The current users notes name
 Dim MailDbName As String 'THe current users notes mail database name
 Dim MailDoc As Object 'The mail document itself
 Dim Session As Object 'The notes session
 '---------------------
 Dim AttachME As Object 'Fich joint en RTF
 Dim AttachF1 As Object '1' pièce attachée
 Dim AttachF2 As Object '1' pièce attachée

 Set Session = CreateObject("Notes.NotesSession")
 UserName = Session.UserName
 MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 'Open the mail database in notes
 Set Maildb = Session.GetDataBase("", MailDbName)
 If Maildb.IsOpen = True Then
   'Already open for mail
 Else
   Maildb.OpenMail
 End If
 'Set up the new mail document
 Set MailDoc = Maildb.CreateDocument

 MailDoc.Form = "Memo"
 MailDoc.Subject = "Situation de "
 MailDoc.Body = "Bonjour, envoi automatique !"

 '---------------------- pièce jointe
 Set AttachME = MailDoc.CreateRichTextItem("Attachment")
 Set AttachF1 = AttachME.EmbedObject(1454, "", CheminEtFichier, "Attachment")
 Set AttachF2 = AttachME.EmbedObject(1454, "", CheminEtFichier2, "Attachment2")
 '----------------------

 MailDoc.SaveMessageOnSend = True

 '------Code de base Fonctionne---------------------------
 'MailDoc.Send 0, "b@b.ch;c@c.ch"
 '---------------------------------------

Dim Recipient, Adresses() As String
 ReDim Preserve Adresses(1 To 3)
 Adresses(1) = Range("E43").Value
 Adresses(2) = Range("E44").Value
 Adresses(3) = Range("E45").Value

 Recipient = Adresses
 MailDoc.sendto = Recipient

 '---------------------------------------
 'Clean Up
 Set Maildb = Nothing
 Set MailDoc = Nothing
 Set AttachME = Nothing
 Set AttachF1 = Nothing
 Set AttachF2 = Nothing
 Set Session = Nothing
 SetRecipient = Nothing
 '-------------------------
 On Error GoTo 0: Err.Clear
 Application.ScreenUpdating = True
 Exit Sub

ErreurNET:  'trit erreur
 Msg$ = "Erreur " & Err.Source & "  No " & Err.Number & vbLf & vbLf & Err.Description
 T$ = "Envoi Mail: Erreur !?"
 MsgBox Msg$, vbCritical, T$, Err.HelpFile, Err.HelpContext
 On Error GoTo 0: Err.Clear
 Application.ScreenUpdating = True
 '-------------------------
 End Sub