zone d'impression

Private Sub imprimer_click() 'Impression Feuille Facture
Dim Retour As Integer

Sheets("feuil1").Activate'<===========================ici
With ActiveSheet.PageSetup
    .LeftMargin = Application.InchesToPoints(0.2)
    .RightMargin = Application.InchesToPoints(0.2)
    .TopMargin = Application.InchesToPoints(0.3)
    .BottomMargin = Application.InchesToPoints(0.3)
    '.PrintQuality = 300
    .Zoom = 85
    .Orientation = xlPortrait
    .BlackAndWhite = False
End With
'---------------- Impression noir et blanc ou couleur ------------------------
Retour = MsgBox("Voulez-vous une copie couleur : O/N ", vbYesNo + vbCritical)
If Retour = vbNo Then
    With ActiveSheet.PageSetup
        .BlackAndWhite = True
    End With
End If
ActiveSheet.PageSetup.PrintArea = "A1:H60"'<=======valeurs"
ActiveSheet.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut copies:=2
End Sub

Sub zoneimp()
    For Each WS In Worksheets
        WS.PageSetup.PrintArea = "A1:H60"
    Next WS
End Sub