Microsoft 365 Attachments.Add Fonctionne mais erreur

Bonjour à tous

Avec la macro de Patrick Toulon ci-dessous je peux envoyer des mails avec une pièce jointe qui s'arrête à la 1ère ligne vide. Le problème c'est le message d'erreur ci-dessous... Malgré l'erreur d'exécution stipulant un chemin incorrect, il me trouve le bon pdf, le joint bien à mon mail et l'envoi est ok....???? Là où cela devient pénible, c'est que j'ai d'autres actions après l'envoi du mail, qui malheureusement ne se lancent pas.

Si quelqu'un a un début de piste ou même une solution, j'avoue être preneur


Belle journée à tous !!!




Sub EnvoiMail2()
'patricktoulon

'définition des variables
Dim ObjOuTlook As Object, oBjMail As Object, MonSujet$, MonDestinataire$, MonContenu$, MaPJ$

Set fdistri = Sheets("LISTE")


With Sheets("Mail") '.Activate

MonContenu = .Range("A3").Value & Chr(10) & Chr(10) & .Range("A4").Value & Chr(10) & _
.Range("A5").Value & Chr(10) & Chr(10) & .Range("A6").Value & Chr(10) & Chr(10) & Chr(10) & _
.Range("A7").Value & Chr(10) & Chr(10) & .Range("A8").Value
End With




Set ObjOuTlook = CreateObject("outlook.application")


For i = 2 To fdistri.Cells(Rows.Count, 1).End(xlUp).Row 'tant que la ligne sélectionnée dans ListeDistribution n'est pas vide, la VBA s'exécutera"
MaPJ = fdistri.Cells(i, 13).Value
MonDestinataire = fdistri.Cells(i, 6).Value
MonSujet = fdistri.Cells(i, 11).Value

Set oBjMail = ObjOuTlook.CreateItem(0)

With oBjMail
.To = MonDestinataire
.Subject = MonSujet
.Body = MonContenu
.Attachments.Add MaPJ
'.Display
.Send
End With
Set oBjMail = Nothing
Next

ObjOuTlook.Quit
Set ObjOuTlook = Nothing

MsgBox "Envoi terminé"

Call Effacer



End Sub