Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'********** code déjà présent *****************
'If Target.Column <> 2 Or Target.Row < 23 Then Exit Sub
'Range("C5") = Target.Value
'******************************************
If Not Intersect(Target, Range("B23:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
Range(Target, Target.Offset(0, 12)).Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, -4142, 4)
End If
End Sub