Salut Esteban,
ainsi, peut-être...
La couleur Active s'applique à toute cellule, la couleur Inactive uniquement aux cellules non-vides... par exemple...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If [AAA1] <> "" Then Range([AAA1]).Interior.ColorIndex = IIf(Range([AAA1]) <> "", 44, 0)
Target.Interior.ColorIndex = 4
[AAA1] = Target.Address
'
End Sub
A+