Bonjour Bruno45,
Merci pour votre proposition de Userform mais je voulais faire sans.
Voici le code que je cherchais:
Sub BoutonImprimerCertainesFeuilles()
Sheets(Array("Diagramme", "Capacité")).Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\PDF.pdf"
Sheets(1).Select
End Sub
Meilleures salutations,
Thierry