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("FACTURE").PrintOut Copies:=2, Collate:=True
Else ' L'utilisateur a choisi Non.
MsgBox "impression annulée" ' Effectue une action.quitter"
End If
End Sub
Bonsoir KIKISalut, voir Ce lien n'existe plus