XL 2013 Impression en recto verso d'un pdf grâce a une macro

Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 

Sub ImprimerFichierinterim()
    Dim NomFichier As String
    Dim x As Long
 
    x = FindWindow("XLMAIN", Application.Caption)

 
    ShellExecute x, "print", "********.pdf", "", "", 1


Application.Wait (Now + TimeValue("00:00:15"))
CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0

End Sub