Sub Match()
Application.ScreenUpdating = False
Workbooks("Y.xls").Activate
Derlig = Range("A65536").End(xlUp).Row
For Each Cel In Range("F2:F" & Derlig)
If Cel.Value <> "" Then
Lig = Cel.Row
Num = Cells(Lig, 2)
Etat = Cells(Lig, 13)
Workbooks("X.xls").Activate
On Error Resume Next
Range("E1").Select
With Range("E1:E65536")
.Find(Etat).Activate
End With
If ActiveCell.Offset(0, -4).Value = Num Then
ActiveCell.EntireRow.Interior.ColorIndex = 4
Workbooks("Y.xls").Activate
Cells(Lig, 1).EntireRow.Interior.ColorIndex = 4
End If
End If
Workbooks("Y.xls").Activate
Next Cel
Application.ScreenUpdating = True
End Sub