Sub PDF()
Dim Dir$, nom$, x$
Dir = ThisWorkbook.Path
ThisWorkbook.SaveAs (Dir & "\" & Sheets("Lettre").Range("I5") & ".xls")
Application.ActivePrinter = "PDFCreator sur Ne00:"
ExecuteExcel4Macro _
"PRINT(2,1,1,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"
Range("J7").Select
End Sub