Sub Noir_et_blanc_imprimer()
Feuil4.Copy before:=Sheets(1)
With ActiveSheet.[d4:v22]
.FormatConditions.Delete
.PrintPreview ' aperçevoir
' .PrintOut ' imprimer
End With
Application.DisplayAlerts = False: Sheets(1).Delete: Application.DisplayAlerts = True
Feuil4.Activate
End Sub