veriti site des amis d'excel

Dans un tableau, appliquer une couleur à une ligne lors de la sélection d'une cellule 

code à coller dans un module de feuille :

Option Explicit

'"Tablo" est la plage à définir (menu/insertion/nom/définir) et dans laquelle l'événement se produira.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Macro par Dan - Belgique pour VERITI - le 07/02/06
'Correction d'un Beug de ligne le 12/11/06
'Macro couleur sur ligne sélectionnée
Dim Lig As Range
Dim Col As Variant
Application.ScreenUpdating = False
'On enlève les couleurs dans la plage "Tablo"
Range("Tablo").Interior.ColorIndex = -4142
'Définition de "Col" -> on cherche le nombre de colonnes dans la plage "Tablo"
Col = Range("Tablo").Columns.Count
'Définition de "Lig" -> ligne sélectionnée
Set Lig = Range(Cells(Target.Row, 1), Cells(Target.Row, Col))
'si clic sur une colonne empêcher la première ligne de prendre la couleur
If Application.Intersect(ActiveCell, Range("Tablo")) Is Nothing Then End
'on traite uniquement la zone "Tablo"
If Not Application.Intersect(Target, Range("Tablo")) Is Nothing Then
Lig.Interior.ColorIndex = 8
End If
Application.ScreenUpdating = True
End Sub