Aide sur macro emailing Outlook

Bonjour

Novice en VBA, j'aurais besoin d'aide sur une macro que j'ai trouvée sur le net. L'idée est d'envoyer des emails personnalisés avec pièce jointe spécifique à chaque destinataire. Ma base est pour le moment constituée des colonnes NOM, Email, Localisation du Fichier, et j'ai 2 lignes complétées.

Sub Single_attachment()
  Dim x As Integer
        For x = 2 To 3
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
mailto = mailto & Cells(x, 2) & ";"
source = "C:\MONDOSSIER\" & Cells(x, 3)
Email.attachments.Add source
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Document"
Email.Body = "Bonjour," & vbNewLine & "Veuillez trouver en pièce jointe votre document." & vbNewLine & "Cordialement,"
Email.Display

Next

End Sub

La macro fonctionne pour le 1er email (même si elle ajoute aussi la base de données en PJ en plus du fichier PDF...?! ; au pire je la supprimerai car ce sont des brouillons d'email qui sont créés)

Mais pour le 2nd email, j'ai le destinataire 1 qui est ajouté aussi en plus du destinataire 2.

Comment créer une boucle de macro pour chaque ligne svp ?

Merci par avance pour vos lumières !

Bonjour X-OR et bienvenue

Essayez avec ceci

Sub Multi_attachments()
  Dim x As Integer
  Dim appOutlook As Object
  Dim Email As Object
  Dim source, mailto As String

  For x = 2 To 3
    Set appOutlook = CreateObject("Outlook.Application")
    Set Email = appOutlook.CreateItem(olMailItem)
    mailto = Cells(x, 2)
    source = "C:\MONDOSSIER\" & Cells(x, 3)
    With Email
      .Subject = "Document"
      .Body = "Bonjour," & vbNewLine & "Veuillez trouver en pièce jointe votre document." & vbNewLine & "Cordialement,"
      .To = mailto
      .attachments.Add source
      .Display
    End With
  Next x
End Sub

A+

Yes, trop bien, merci beaucoup ! je vais étudier ce qui clochait, merci encore et bonne journée !