Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [C3,C5,G3,G5]
.Interior.Color = 13434879 'jaune pâle
With Intersect(.EntireRow, [B:B,E:E])
.Value = "UX/1UY"
.Interior.Color = 3899904 'vert
.Font.Color = 49407 'orange
.HorizontalAlignment = xlCenter
End With
On Error Resume Next
With Intersect(Target, .Cells)
.Interior.Color = 16777215 'blanc
With Intersect(Union(.Offset(, -1), .Offset(, -2)), [B:B,E:E])
.Value = "UX/1UY désiré"
.Interior.Color = 6634265 'bleu
.Font.Color = 65535 'jaune
.HorizontalAlignment = xlLeft
End With
End With
End With
End Sub