RE
si lorsque tu fais tous ces codes tu déclenches à la main l'impression d'une feuille en niveau de gris, essaie les lignes :
Sheets(zone).select
sendkeys "^p %r ^{tab} ^{tab} ^{tab} ^{tab} {tab} {enter} {enter}", -1
'Sheets(zone).printout
j'ai mis la dernière ligne en commentaire au cas où l'essai ne serait pas satisfaisant
au cas où, un autre essai en imprimant feuille à feuille mais sans boite de dialogue (retour au 12/10 9h21 avec ligne sendkeys actualisée)
Private Sub CommandButton1_Click()
retour = MsgBox("Voulez-vous imprimer ", 4 + vbInformation, " Impression ")
If retour = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
If Feuille.Range("A1").Value = "A" Then
Feuille.Select
sendkeys "^p %r ^{tab} ^{tab} ^{tab} ^{tab} {tab} {enter} {enter}", -1
End If
Next
Sheets(1).Select
Application.ScreenUpdating = True
End If
End Sub