imprimer en niveau de gris

bjrs à tout le monde et meilleur voeux §§

actuellement j'utilise cette macro pour imprimer certaines feuilles preselectionnées d'un classeur (10 sur 60 feuil)
ma question est: quelle ligne(s) de macro me permetrais d'imprimer ces feuilles en niveaux de gris et non pas en couleur.

merci et bonne journée
francoisMEL

Sub Imprimer_Balance()
retour = MsgBox("Vous-êtes sur le point d' imprimer la feuille de BALANCE HORAIRE, êtes-vous sûr de vouloir continuer ? ", 4 + vbInformation, " Impression Balance ")
If retour = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
If Feuille.Range("D1").Value = "B" Then
Feuille.PrintOut
End If
Next
End If
End Sub