'Couleur de fond de cellule rouge pour la colonne "F"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range
With ActiveSheet
Set plage = .Range("K4:AQ50")
If Not (Intersect(Target, plage) Is Nothing) Then
If Not lastcell Is Nothing Then lastcell.Interior.ColorIndex = 15 ' 1= fond noir 36= jaune clair
.Cells(Target.Row, 6).Interior.ColorIndex = 3 'Target.Row, 6= colonne "F"
Set lastcell = .Cells(Target.Row, 6)
End If
End With
End Sub