Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Coul As Long
If Intersect(Me.[A6:D6], Target) Is Nothing Then Exit Sub
Set Cel = Feuil2.[A:A].Find(What:=Me.[A6].Value & Me.[C6].Value, After:=Feuil2.[A1], _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Cel Is Nothing Then Exit Sub
Coul = Cel.Interior.Color
Application.ScreenUpdating = False
For Each Cel In Me.[A1:L2,A4:L5,A6:F6]
Cel.Interior.Color = Coul
Next Cel
End Sub