Macro imprimer

Bonjour à tous

En fouillant un peu sur le net j'ai trouvé une petite macro qui permet d'afficher la liste des imprimantes raccordés au pc et de lancer l'impression de certaines pages d'un document. Je vous la livre :

    Sub ImpPagetotal()
    If Range("bp70") > 0 Then
    If MsgBox("Il reste des erreurs. Souhaitez-vous imprimer malgré tout?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
    Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
    ActiveSheet.PrintOut From:=2, To:=4
    Else
    Exit Sub
    End If
    Else
    Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
    ActiveSheet.PrintOut From:=2, To:=4
    End If
    End Sub

Je l'ai un peu modifiée pour qu'un message de confirmation d'impression apparaisse en fonction de la valeur d'une case de mon tableau excel. Tout marche nickel sauf que si on clique sur 'annuler' dans la fenetre de liste des imprimantes, l'impression se lance tout de même sur l'imprimante par defaut. Y a-t'il un moyen d'y remedier?

Merci d'avance

Bonjour

A tester

Sub ImpPagetotal()
  If Range("bp70") > 0 Then
    If MsgBox("Il reste des erreurs. Souhaitez-vous imprimer malgré tout?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
      If Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show = True Then
'        ActiveSheet.PrintOut From:=2, To:=4
        ActiveSheet.PrintPreview
      End If
    Else
      Exit Sub
    End If
  Else
    If Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show = True Then
'    ActiveSheet.PrintOut From:=2, To:=4
    ActiveSheet.PrintPreview
    End If
  End If
End Sub

Bonne journée

Ca marche, merci bcp Banzai64