Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim col As Integer
Dim lig As Integer
col = ActiveCell.Column
lig = ActiveCell.Row
'définir la zone d'action
If Not Application.Intersect(Target, Range("A2:K200")) Is Nothing Then
'rétablir la couleur, police et cellule des cellules de A1 à K1
With Range("A1:K1")
.Interior.ColorIndex = 8
.Font.ColorIndex = 1
End With
'supprime les couleurs de la zone A2 K200
Range("A2:K200").Interior.ColorIndex = xlColorIndexNone
'colorise de la 1er ligne à la ligne 200 sur la colonne active
Range(Cells(1, col), Cells(200, col)).Interior.ColorIndex = 19 'Column Color
'colorise de la colonne 1 à l colonne 11 sur la ligne active
Range(Cells(lig, 1), Cells(lig, 11)).Interior.ColorIndex = 19 ' Row Color
'colorise la cellule active
ActiveCell.Cells.Interior.ColorIndex = 44 ' Cell Color
End If
End Sub