Function Index_COULEUR(Plage As Range) As Integer
Application.Volatile True
Index_COULEUR = Plage(1, 1).Interior.ColorIndex
End Function
Sub noir_blanc()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
'mettre 1 pour la couleur noire à la place du 6
If Not IsEmpty(cell) And Index_COULEUR(cell) = 6 _
Then cell.Interior.ColorIndex = 2
Next
'ici mettre le code pour l'impression
End Sub