Option Explicit
Sub Police_maj_gras_repérer()
Dim c As Range
Application.ScreenUpdating = 0
Columns(1).Insert
Range("a1:a" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=EXACT(RC[1],UPPER(RC[1]))"
For Each c In Columns(2).SpecialCells(xlCellTypeConstants)
If c.Font.Bold = True And c.Offset(, -1) = True Then c.Interior.ColorIndex = 36
Next
Columns(1).Delete
Application.ScreenUpdating = -1
End Sub