Bonjour @Phil69970
C'est tout à fait ça, un pdf pour un ID_autopsie.
Désolé, c'est une erreur de ma part.
Je te remets le code
Sub editionfactures()
Application.ScreenUpdating = False
Dim i&, Derlig&, Lig&, Chemin$, Facture_numero, Facture_pv, Facture_nom, Facture_prenom, Cptr%
Dim Ws1 As...