Sub test()
Dim i%, j%, k%
Sheets("Feuil1").Select
With Sheets("Feuil2")
For j = 1 To .Range("IV1").End(xlToLeft).Column
For i = 4 To .Cells(65536, j).End(xlUp).Row
For k = 2 To Range("A65536").End(xlUp).Row
If .Cells(i, j).Value = Cells(k, 6).Value Then
.Cells(i, j).Interior.ColorIndex = xlNone
Exit For
End If
If .Cells(i, j).Value <> Cells(k, 6).Value Then
.Cells(i, j).Interior.Color = vbRed
Else
.Cells(i, j).Interior.ColorIndex = xlNone
End If
Next k
Next i
Next j
End With
End Sub