VB qualité image avec InlineShapes.Addpicture

Bonjour à tous,

J'ai un formulaire qui alimente une base de données qui alimente les signets d'un fichier word qui s'enregistre en pdf.

Ca va ? tout le monde suit ?

Sur le document je dois intégrer des logos (variables selon certains critères). Je n'arrive pas à avoir une qualité correcte pour ces logos, disons le, ils sont clairement horribles. Mes jpg de départ sont de bonne qualité, j'ai essayé plusieurs format mais rien à faire. C'est toujours aussi horrible. Voici le code que j'utilise pour les intégrer word/pdf

        worddoc.Tables(1).Columns(1).Cells(1).Range.InlineShapes.AddPicture _
            Filename:=chemin & "\Logo_2021\XXXXX.jpg"", linkToFile:=False, saveWithDocument:=True"

Comment est il possible d'avoir des images de qualité correctes ?

Merci à vous