Sub couleur()
Dim Ws As Worksheet, Cel As Range, i as byte
For Each Ws In ActiveWorkbook.Sheets
For Each Cel In Ws.UsedRange
If Cel.Interior.ColorIndex = 43 Then
Cel.Interior.ColorIndex = xlNone
Cel.Font.ColorIndex = 43
End If
Next
For i = 1 To Ws.UsedRange.Columns.Count
If Ws.Cells(2, i) = Ws.Cells(2, i + 1) Then Ws.Columns(i).Interior.ColorIndex = 34
Next
Next
End Sub