Couleur de la cellule active

Bonjour,
J'aimerai sur excel, colorier la cellule active.
Quand je clique sur une cellule elle devient rouge, quand je clique sur une autre cellule, elle reprend sa couleur d'origine.
Il faudrait que cette macro s'applique pour toutes les feuilles du classeur.
J'avais déjé trouvé une macro mais la cellule ne reprend pas sa couleur d'origine.

Public old_color, old_sel
Option Explicit

Sub Worksheet_SelectionChange(ByVal sel As Range)

If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 41

End Sub

Meri pour votre aide