Private Sub imprime_Click()
Dim Msg, Style, Title
If MsgBox("AVEZ-VOUS CLIQUEZ SUR LE BON BOUTON DE BAS DE PAGE ?", vbOKCancel + vbDefaultButton2, "ATTENTION A L'OUBLI") = vbOK Then ' Définit le message.
Sheets(WS_FACTURE).PrintOut Copies:=2, Collate:=True
Else ' L'utilisateur a choisi Non.
MsgBox "impression annulée" ' Effectue une action.quitter"
End If
End Sub