Bonjour le forum,
J'ai gratté pas mal sur le forum mais pas trouvé quelque chose de simple et qui fonctionne.
J'ai trouvé ça mais ça accroche sur la ligne en rouge.
J'ai la dernière version de PDFCreator installé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Option Explicit
 
Sub Macro1()
   Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True
End Sub
Merci pour les retours éventuels
Cordialement