Blocquer impression

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim i As Byte

For i = 1 To 100

MsgBox 'Recopiez sur une feuille la phrase : ' & vbCrLf & _
'''La politesse n'est pas l'apanage des rois.''' & vbCrLf _
& 'Puis cliquez sur ok une fois la phrase recopiée.'

Next i

Cancel = True

Cliquez pour agrandir...