Sub Couleurs()
Dim P As Range, c As Range, n&, coulfond&, coulpolice&, c1 As Range
Application.ScreenUpdating = False
Columns(1).Interior.ColorIndex = xlNone 'RAZ
Set P = Columns(1).SpecialCells(xlCellTypeConstants)
For Each c In P
If c.Interior.ColorIndex = xlNone Then
n = n + 1
coulfond = Cells(n, 4).Interior.Color
coulpolice = Cells(n, 4).Font.Color
For Each c1 In P
If c1 = c Then c1.Interior.Color = coulfond: c1.Font.Color = coulpolice
Next c1
End If
Next c
End Sub