Sub cou()
Dim Plg1 As Range, Plg2 As Range, L As Long, C As Long
Set Plg2 = Intersect(Feuil2.[4:1000000], Feuil2.UsedRange)
Set Plg1 = Feuil1.Range(Plg2.Address)
For L = 1 To Plg2.Rows.Count: For C = 1 To Plg2.Columns.Count
Plg1(L, C).Interior.Color = IIf(Différents(Plg1(L, C), Plg2(L, C)), &H8592FF, &HBABABA)
Next C, L
End Sub
Function Différents(ByVal C1, ByVal C2) As Boolean
If TypeOf C1 Is Excel.Range Then C1 = C1.Value
If TypeOf C2 Is Excel.Range Then C2 = C2.Value
If VarType(C1) <> VarType(C2) Then Différents = True: Exit Function
If IsError(C1) Then Différents = CLng(C1) <> CLng(C2): Exit Function
Différents = C1 <> C2
End Function