Option Explicit
Sub tst()
Dim sFichier As String, sDossier As String
Dim sPSfichier As String
Dim sPDFFichier As String
Dim oPDF As Object
sDossier = ThisWorkbook.Path & "\"
sFichier = sDossier & "Essai_01.ps"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
PrintToFile:=True, PrToFileName:=sFichier, _
Collate:=True, IgnorePrintAreas:=False
sFichier = sDossier & "Essai_02.ps"
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, _
PrintToFile:=True, PrToFileName:=sFichier, _
Collate:=True, IgnorePrintAreas:=False
sFichier = sDossier & "Essai_03.ps"
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, _
PrintToFile:=True, PrToFileName:=sFichier, _
Collate:=True, IgnorePrintAreas:=False
Set oPDF = CreateObject("PdfDistiller.PdfDistiller")
sPSfichier = sDossier & "Essai_01.ps"
sPDFFichier = sDossier & "Essai_01.pdf"
oPDF.FileToPDF sPSfichier, sPDFFichier, ""
sPSfichier = sDossier & "Essai_02.ps"
sPDFFichier = sDossier & "Essai_02.pdf"
oPDF.FileToPDF sPSfichier, sPDFFichier, ""
sPSfichier = sDossier & "Essai_03.ps"
sPDFFichier = sDossier & "Essai_03.pdf"
oPDF.FileToPDF sPSfichier, sPDFFichier, ""
Set oPDF = Nothing
End Sub