Imprimer depuis un module VBA

Bonjour,
Bonjour à tous,
J'ai créé un classeur Excel dans lequel j'ai un module Vba pour l'impression. Ce classeur est à la disposition de plusieurs dizaines d'utilisateurs. Il fonctionne très bien et il est apprécié de tous. Cependant on me demande de l'améliorer en permettant de choisir l'imprimante (dans le cas ou plusieurs imprimantes sont reliées à l'ordinateur) ou de choisir la qualité d'impression. Pour cela je souhaiterais que dans ma macro impression ci-dessous faire appel et afficher la boîte de dialogue «Imprimer» mais je n'y parviens pas !

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

Indépendamment de cette modification le classeur et l'impression fonctionnent très bien.
Pouvez-vous m'aider ?
D'avance merci.
Mistral