Private Sub CommandButton1_Click()
Dim ZoneImpr As Range, temp, tempp
If ActiveWorkbook.Saved <> True Then
temp = MsgBox("Voulez-vous sauvegarder votre classeur ?", _
vbOKCancel, "Enregistrement")
If temp = 1 Then ActiveWorkbook.Save
End If
On Error GoTo PasZoneImpr
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$28" [COLOR="Red"]' ici adapter[/COLOR]
Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
On Error Resume Next
ZoneImpr.CopyPicture
ZoneImpr.Clear
ActiveSheet.Paste Destination:=ZoneImpr
ActiveWindow.DisplayGridlines = False
ActiveWindow.SelectedSheets.PrintPreview ' ou .Print Out
ActiveWorkbook.Close Saved = True
Exit Sub
PasZoneImpr:
tempp = MsgBox("La Zone d'impression doit avoir été définie !", _
vbCritical, "Opération annulée")
Exit Sub
End Sub