Sub Imprimer()
' mettre les caractères en blanc avant l'impression
Range("B8").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
' impression
ActiveSheet.PrintOut
' rétablir l'affichage sur la feuille
Range("B8").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
End Sub