Option Explicit
Sub Formule_ou_constante()
With Columns(1) ' numéro de colonne adapter
.Interior.ColorIndex = xlNone
.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 36
.SpecialCells(xlCellTypeConstants, 23).Interior.ColorIndex = 40
End With
End Sub