Salut à tous,
sans avoir vu la soluce des autres, voici de quoi faire aussi:
Sub ImpFiligrane()
' De : 'Robert Descôteaux'
'La Zone d'impression DOIT être préalablement définie
On Error Resume Next
Dim ZoneImpr As Range
Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImpr.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImpr
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub
à copier dans un module standard accessible par ALT F11
Pat