Imprimer depuis un module VBA

Sub ImpressionTableau()
    Dim p As Integer
    'Application.ScreenUpdating = False                  ' Bloque le rafraîchissement de l'écran.
    'Application.EnableEvents = False                    ' Arrêt de la scrutation.
    If Sheets("Bordereau").Range("A28").Value = "" Then             ' Test si la 1ere cellule utilisée, A28.
        MsgBox ("Le Tableau n'a pas été rempli !" & vbCrLf & " " & vbCrLf & "Il n'y a donc rien à imprimer."), vbCritical, "Fédération Trucmuche"
        Exit Sub
    End If
'Définit la zone complète
    Sheets("Tableau").PageSetup.PrintArea = "$A$1:$N$235"         ' Partie de la feuille utilisée.
    p = Nb_LigneBdx                                                   ' Saut à la fonction Nb_LigneBdx
    p = Nb_PagesBdx(p)                                              ' Saut à la fonction Nb_PagesBdxN2
    With Sheets("Tableau")
        .Visible = True
        .PrintOut from:=1, To:=p
        .Visible = False
    End With
     Application.ScreenUpdating = True           ' Rétablis le rafraîchissement de l'écran.
    Application.EnableEvents = True               ' Remise en service de la scrutation.
End Sub

' Calcule et renvois le N° de la dernière ligne non vide.
Function Nb_LigneBdx() As Integer
    Dim I As Integer
    For I = 28 To 235
        If Sheets("Tableau").Range("A" & I).Value = "" Then Exit For      ' Test la première cellule vide de la colonne A.
    Next I
    Nb_LigneBdx = I - 1
End Function

' Calcule et renvois le Nb de page.
Function Nb_PagesBdx(Lignes As Integer) As Integer
    Select Case Lignes
        Case 1 To 58: Nb_PagesBdx = 1
        Case 59 To 110: Nb_PagesBdx = 2
        Case 111 To 162: Nb_PagesBdx = 3
        Case 163 To 214: Nb_PagesBdx = 4
        Case Is > 214: Nb_PagesBdx = 5
    End Select
End Function