Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static selection_precedente As String
If selection_precedente <> "" Then
'Suppression de la couleur de fond de la sélection précédente :
Range(selection_precedente).Interior.ColorIndex = xlColorIndexNone
End If
'Coloration de la sélection actuelle :
Target.Interior.Color = RGB(0, 255, 255) '(181, 244, 0)
'Enregistrement de l'adresse de la sélection actuelle :
selection_precedente = Target.Address
End Sub