Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
[AH1] = ""
Application.ScreenUpdating = False
If Target = "" Then Exit Sub ' On sort si vide
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
' Highlight the active cell
Range(Cells(Target.Row, "A"), Cells(Target.Row, "Q")).Interior.ColorIndex = 6
Application.ScreenUpdating = True
Fin:
End Sub