Couleur cellule active

Bonjour à tous !

Je souhaite pour une question d'ergonomie, rendre la cellule active en couleur.

Lorsque je clique sur A1 .. la cellule se transforme avec un fond bleu

Je clique ensuite sur D2 ... A1 redevient normal et D2 se colore ensuite avec un fond bleu.

J'ai trouvé ce code que je rentre dans Feuil1:

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

Mais comment faire si je veux le mettre dans une sélection de feuilles ? feuille 1 4 et 6 par exemple ?

Merci pour votre aide

Bonsoir,

Recopier la macro dans chaque feuille voulue.

Cordialement