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