Sub Macro1()
Dim Tab_réf() '
Dim Lg As Long
Dim X As Long
Dim Y As Long
Dim flag_p As Boolean
'MEI
ReDim Tab_réf(1 To 3, 0)
'Recherche réf
For Lg = 8 To Range("M65536").End(xlUp).Row
For X = 0 To UBound(Tab_réf, 2)
If Range("M" & Lg) = Tab_réf(1, X) Then
flag_p = True
'recherche des erreurs
If Range("J" & Lg) <> Tab_réf(2, X) Then
Range("J" & Lg).Interior.ColorIndex = 6
Range("Q" & Lg).Interior.ColorIndex = 6
End If
If Range("K" & Lg) <> Tab_réf(3, X) Then
Range("K" & Lg).Interior.ColorIndex = 6
Range("Q" & Lg).Interior.ColorIndex = 6
End If
Exit For
End If
Next X
If flag_p Then
flag_p = False
Else
ReDim Preserve Tab_réf(1 To 3, UBound(Tab_réf, 2) + 1)
Tab_réf(1, UBound(Tab_réf, 2)) = Range("M" & Lg)
Tab_réf(2, UBound(Tab_réf, 2)) = Range("J" & Lg)
Tab_réf(3, UBound(Tab_réf, 2)) = Range("K" & Lg)
End If
Next Lg
End Sub