Sub PDF()
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Formulaire.pdf", Quality:=xlQualityStandard
End Sub
Sub Sauve_Doc()
If IsError(Application.Match([P5], Array(1, 2, 3, 4, 5), 0)) Then Exit Sub
ActiveSheet.PageSetup.PrintArea = "C2:M" & 46 * [P5] - 6 'définit la zone d'impression
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\JRN.pdf", Quality:=xlQualityStandard
End Sub