Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Choix]) Is Nothing Then Exit Sub 'Choix est une plage nommée de 2 cellules
On Error Resume Next
With [A1].CurrentRegion
.Interior.ColorIndex = xlNone
With Cells(Application.Match([Choix].Cells(1), .Columns(1), 0), Application.Match([Choix].Cells(2), .Rows(1), 0))
.Interior.ColorIndex = 6 'jaune
.Select
End With
End With
End Sub