Anomalies envoie mail outllok via vba

Bonjour,

j'essaye d'effectuer des envoies de mail Outlook via VBA
Je rencontre le problème suivant:
j'essaye d'envoyer des mails à différents destinataires avec un fichier PDF en pièce jointe
il s'avère que au lieu de générer un mail avec un PDF en pièce jointe pour chaque destinataire,
ma macro envoie un UNIQUE mail au dernier destinataire de ma liste mais avec tout les PDF

je me retrouve avec 1 mail pour 1 destinataires avec plusieurs PDF
au lieu de d'un mail pour chaque destinataire avec un PDF dans chaque mail

vous trouverez mon code ci-dessous



ci-dessous un exemple de code


For i = 6 To der_ligne
Chemin_dossier_facture = "C:\Users\HP\Documents\Lombard Odier\FACTURE_ABCD"

If Cells(i, 7) = "sent mail" And Cells(i, 26) = "janvier" Then
olmail.SentOnBehalfOfName = "test"
olmail.To = Cells(i, 25) ' cellule avec adresse mail différente pour chaque client
olmail.Subject = Cells(i, 2)

'PDF DE LA facture
olmail.Attachments.Add Chemin_dossier_facture & ".pdf"
olmail.Body = "Dear team" _
& vbCr & vbCr & "Could you instruct my fax instruction in attached" & vbCr & vbCr
& " " & vbCr & " " & vbCr & "Kind regards"
olmail.Display
End If

If Cells(i, 7) = "sent mail" And Cells(i, 26) = "decembre" Then
olmail.SentOnBehalfOfName = "test"
olmail.To = Cells(i, 25) ' cellule avec adresse mail différente pour chaque client
olmail.Subject = Cells(i, 2)

‘PDF de la facture
olmail.Attachments.Add Chemin_dossier_facture & ".pdf"

olmail.Body = "Dear team" _
& vbCr & vbCr & "Could you instruct my fax instruction in attached" & vbCr & vbCr
& " " & vbCr & " " & vbCr & "Kind regards"
olmail.Display

End If

Next



Pouvez vous m'aider c'est la première que je suis confronté à ce type de probleme lorsque je code des envois multiples de mails