Dim Fichier_PDF As String
Dim Nom_temp_PS As String
Dim mypdfDist As New PdfDistiller
For i = 1 to 5
If i = 1 Then
Il fait des actions comme masqué des colonnes et lignes
Else
If i = 2 Then
Il masque des colonnes et des lignes
Else
If i = 3 Then
actions de masqués des colonnes et des lignes
End if
End if
End if
Nom_temp_PS = Path & Fichier & ".ps"
Fichier_PDF = Path & Fichier & ".pdf"
Nom_temp_Log = Path & Fichier & ".log"
Sheets(NomBureau).PageSetup.PrintArea = Range("A1:AH" & FinLigneBureau).Address
Sheets(NomBureau).PrintOut copies:=1, Preview:=False, ActivePrinter:="Adobe PDF", PrintToFile:=True, Collate:=True, PrToFileName:=Nom_temp_PS
'
mypdfDist.FileToPDF Nom_temp_Perform_PS, Fichier_PDF, ""
'
'Calculate
'
Kill Nom_temp_PS
'
Kill Nom_temp_Log
Next