Retour = MsgBox("Voullez-vous une copie couleur : O/N ", vbYesNo + vbCritical)
If Retour = vbNo Then
ActiveSheet.PageSetup.BlackAndWhite = True
Else
ActiveSheet.PageSetup.BlackAndWhite = False
End If
Sheets(Array("Feuil1", "Feuil3")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=oNomFichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False