Bonjour,
Une macro à placer dans le module de la feuille concernée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
With Target.Interior
If .ColorIndex = xlColorIndexNone Then
.Color = vbGreen
Else
.ColorIndex = xlColorIndexNone
End If
End With
End Sub
Si la cellule n'a pas de couleur elle devient verte. Si elle en a une, celle-ci est enlevée.
Cordialement.