Salut ,
avec WIN2PDF facile à trouver sur le net tu peux associer un bouton à ceci:
Sub imprime_PDF()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, _
Collate:=True, prtofilename:=ActiveSheet.Name & '.pdf', ActivePrinter:='printer PDF' 'ou win2PDF
End Sub
Patrick