Impression couleur avec macro VBA

Bonjour à tous,

Cela fait quelque jour que j'essai de codé une macro.

Cette macro me permet d'imprimmé plusieurs ongler avec une seul commande.

Le seul problème c'est que pour certaine page, je dois l'imprimé en couleur.

Je suis sur un reseau d'entreprise et le fichier est disponible sur le reseau.

Voici le code :

Application.Dialogs(xlDialogPrinterSetup).Show
Application.Dialogs(xlDialogPrinterSetup).Show

    If Range("A117") = "GSK" And Range("A123") <> "SC" Then
Sheets(Array("feuille 1", "feuille 2","feuille 3", ...... ,"feuille 10")).PrintOut copies:=1
        End If

J'ai essayé la fonction ".blackandwhite = true" mais cela ne donne rien non plus

Si quelqu'un aurai une solution je suis prenneur.

Cordialement,

Kilik