[code=vb]
Sub Impression_vers_pdf()
' Macro créée par francedemo
Dim ImpDft As String
Dim ImpPdF As String
Dim NomFichier As String
Dim x As Byte
'===Désactiver la mise à jour de l'affichage
Application.ScreenUpdating = False
'===Mémoriser l'impramante active
ImpDft = Application.ActivePrinter
'===Valider les variables
NomFichier = ActiveWorkbook.Name
'===Lancer l'impression de la page courante
'===Valider le port de l'imprimante pdf
For x = 0 To 9
On Error Resume Next
ImpPdF = "PDFill PDF&Image Writer sur Ne0" & x & ":"
Application.ActivePrinter = ImpPdF
Next x
ActiveWindow.SelectedSheets.PrintOut _
Copies:=1, _
ActivePrinter:=Application.ActivePrinter, _
Collate:=True
'===Remettre l'imprante par défaut
Application.ActivePrinter = ImpDft
'===Activer la mise à jour de l'affichage
Application.ScreenUpdating = True
End Sub