Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In UsedRange
If c = "" Then
c.Interior.ColorIndex = 35 [COLOR=seagreen]'35 = Vert pastel à toi de changer[/COLOR]
Else
c.Interior.ColorIndex = xlNone
End If
Next c
End Sub