Bonsoir ...
et avec enregistreur macro, j'obtiens ceci: (sans parler envoi par mail)
Sub Macro1()
'
' Macro1 Macro
'
' ActiveSheet.PageSetup.PrintArea = "$A$4:$K$22"
Application.ActivePrinter = "PDFCreator sur Ne00:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"
Application.Goto Reference:="Macro1"
End Sub