VBA- Macro pour rechercher et ouvrir un PDF, puis imprimer

Bonjour à tous,

J'ai besoin d'une macro pour pouvoir imprimer que ceraines pages d'un PDF.

J'ai des pdf de plusieurs centaines de pages que je dois ouvrir, faire une recherche sur un mot précis et imprimer toutes les pages contenant ce mot et uniquement ces pages là.

J'arrive à chercher et ouvrir le PDF

Faire la recherche sur le mot mais je n'arrive pas à impirmer la page actrive puis boucler sur les autres pages.

Voici mon début de code :

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 ImprimCHQ()

Dim NomFic As String

Dim x As Long

'Choix et ouverture du fichier

NomFic = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisir le fichier .PDF à ouvrir")

ThisWorkbook.FollowHyperlink NomFic

'Recherche le premier pdf comportant le mot chèque

SendKeys "^f", True

SendKeys "CHEQUE", True

SendKeys "{ENTER}"

'Imprimer la page active du pdf

ShellExecute 0, "print", NomFic, "", "", 1

'boucler sur les autres pages du pdf contenant le même mot

'Fermer le pdf

SendKeys "^{q}", True

End Sub

En vous remerciant par avance