Public Sub ChercheGrisBleu()
Dim Ws As Worksheet, derL As Long, derC As Long, L As Long, C As Long
Dim a(), i As Long, Cel As Range
Set Ws = Worksheets("Matrice Jouet Cedemo FR")
derL = Ws.Cells.Find("*", [A1], , , 1, 2).Row
derC = Ws.Cells.Find("*", [A1], , , 2, 2).Column
For L = 7 To derL
If Ws.Cells(L, 1).Interior.Color = Ws.Range("F1").Interior.Color Then
For C = 1 To derC
If Ws.Cells(L, C).Interior.Color = Ws.Range("G1").Interior.Color Then
ReDim Preserve a(i): a(i) = Ws.Cells(L, C): i = i + 1
End If
Next C
End If
Next L
Set Ws = Worksheets("Matrice2018")
derL = Ws.Cells.Find("*", [A1], , , 1, 2).Row
derC = Ws.Cells.Find("*", [A1], , , 2, 2).Column
For i = LBound(a) To UBound(a)
For L = 7 To derL
For C = 1 To derC
If Not IsError(Ws.Cells(L, C)) Then
If Ws.Cells(L, C) = a(i) Then Ws.Cells(L, C).Font.Color = vbRed: Ws.Cells(L, C).Interior.Color = vbYellow
End If
Next
Next
Next
End Sub