Private Sub Workbook_BeforePrint(Cancel As Boolean)
reponse= _
MsgBox _
("Etes vous sûr qu'il est vraiment nécessaire d'imprimer ce document ?", _
vbYesNo + vbCritical, "Avertissement")
If reponse = 1 Then
[B]ActiveSheet.PrintPreview
[/B][COLOR=SeaGreen]'remplacer par ActiveSheet.PrintOut
'pour lancer l'impression de la feuille active[/COLOR]
ActiveSheet.PrintPreview
Else
Cancel = True
End If
End Sub