Envoie PDF disfonctionne depuis le 17 mai 2023

Bonjour,

j'ai une macro sur un fichier excel pour générer et envoyer un PDF par mail à mes clients.
Mais depuis le 17 juin 2023 le fichier PDF n'est pas comme avant. Il inclus bien les textes mais avec un visuel complètement différent et sans ma signature (une image)

Voici le script utilisé

Sub EnvoiPDF()
  Dim Nom As String, MaSignature As String
  Nom = Feuil2.Range("A13") & ".pdf"
  Feuil2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\" & Nom, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

  Set olApp = CreateObject("Outlook.application")
  Set m = olApp.CreateItem(0)
  With m
    .display
    .Subject = "Facture"
    .To = Feuil1.Range("K1")
    .Cc = "marques-carneiro@hotmail.com"
    .HTMLBody = "Bonjour," & "<br><br>" & "Je vous envoie en pièce jointe la facture pour notre dernière séance" & "<br><br>" & "Bien cordialement" & "<br><br><br>" & "Eduardo Marques-Carneiro"
    .attachments.Add ActiveWorkbook.Path & "\" & Nom
  End With

End Sub

Merci d'avance pour votre aide