Option Explicit
Sub Couleur_oui_non()
Application.ScreenUpdating = False
With Range("B5:D14")
.Interior.ColorIndex = xlNone
.Font.ColorIndex = xlAutomatic
End With
ActiveSheet.PrintPreview
With Range("B5:D14")
.Interior.Color = 10079487
.Font.Color = 0
End With
Application.ScreenUpdating = True
End Sub