Set PDFExec = WshShell.Exec(CheminReader & " /p /a page=" & NumPage & "=OpenActions " & CheminPDF)
Application.Wait (Now + TimeValue("0:00:05"))
'Séquence de SendKeys pour sélectionner l'impression de la page active
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{DOWN}", True
'Séquence de SendKeys pour démarrer l'impression
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{ENTER}", True