Imprimer seulement la page 1 d'un document

Bonjour,

Je me remets un peu au macro, j'ai retrouvé ce code permettant d'imprimer l'ensemble des fichiers pdf d'un dossier, je voudrais y ajouter le code permettant d'imprimer non pas tout le document mais seulement la page n°.. (1) par exemple et où rajouter ce code dans celui ci-dessous :

Option Explicit

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
Const SW_SHOWNORMAL = 1

Dim NbFichiers As Long
Dim Tableau() As String
Const Dossier As String = "C:\Users\impression"

Sub Tst()
Dim hwnd As Long
Dim i As Long
Dim DossierOk As String

    DossierOk = Dossier
    If Right(DossierOk, 1) <> "\" Then DossierOk = Dossier & "\"
    ListeFichiers DossierOk, "pdf"
    If NbFichiers > 0 Then
        For i = 1 To UBound(Tableau)
            ShellExecute hwnd, "print", DossierOk & Tableau(i), "", "", SW_SHOWNORMAL
        Next
    End If
End Sub

Private Sub ListeFichiers(ByVal NomDossierSource As String, ByVal Extension As String)
Dim NomFichier As String
    NomFichier = Dir(NomDossierSource & "*." & Extension)

    Erase Tableau
    NbFichiers = 0
    Do While Len(NomFichier) > 0
        NbFichiers = NbFichiers + 1
        ReDim Preserve Tableau(1 To NbFichiers)
        Tableau(NbFichiers) = NomFichier
        NomFichier = Dir()
    Loop
End Sub

Merci à vous d'avance pour votre aide,

Salut Seb_vab

Merci d'éditer ton 1er post STP et de mettre ton code entre balises [ code] et [ /code] sans l'espace après [