Surligner la 1ere cellule en abscisse et ordo

Bonjour,

Je n'ai vraiment pas beaucoup de notion de programmation VBA mais je souhaiterais sous Excel mettre en couleur les 1ières cellules en abscisse et ordonnées
j'ai par exemple un tableau avec en abscisse les 12 mois de l'année et en ordonnée les années depuis 2000 à 2008.
En fait si rentre en janvier 2007, une valeur, j'aimerais que la cellule janvier et la cellule 2007, change de couleur, pour repérer plus facilement ou je suis, et éviter les erreurs...
Pouvez vous m'aider ?
On a essayé avec un collègue pour surligner la ligne en couleur la ou se trouve le curseur, cela marche bien sauf que lorsque l'on sauvegarde le document, les couleurs restent... C'est donc un peu ce que j'aimerais faire mais avec juste la 1er cellule de la ligne mais aussi celle de la colonne.
voici le code employé pour la ligne complète sur 16 cellules :

Dim couleur(16) As Long
Dim i As Long
Dim lig As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If i = 0 Then

For i = 1 To 16
lig = ActiveCell.Row
couleur(i) = Cells(lig, i).Interior.Color
Cells(lig, i).Interior.Color = 300000
Next i

Else

For i = 1 To 16

Cells(lig, i).Interior.Color = couleur(i)

Next i
i = 0
For i = 1 To 16
lig = ActiveCell.Row
couleur(i) = Cells(lig, i).Interior.Color
Cells(lig, i).Interior.Color = 300000
Next i

End If
End Sub

Merci beaucoup