Sub compar()
Dim i, j, k1, k2 As Integer
Feuil1.Select
k1 = Range("A1").End(xlDown).Offset(1, 0).Row
k2 = Range("A100").End(xlDown).Offset(1, 0).Row
Application.ScreenUpdating = False
For i = 2 To k1 - 1
For j = 100 To k2 - 1
If Range("A" & i).Value = Range("A" & j).Value Then
Range("A" & j).Interior.Color = vbYellow
End If
If Range("B" & i).Value = Range("B" & j).Value Then
Range("B" & j).Interior.Color = vbYellow
End If
If Range("C" & i).Value = Range("C" & j).Value Then
Range("C" & j).Interior.Color = vbYellow
End If
If Abs(Range("E" & i).Value) = Abs(Range("E" & j).Value) Then
Range("G" & j).Interior.Color = vbYellow
End If
If Abs(Range("E" & i).Value) = Abs(Range("G" & j).Value) Then
Range("G" & j).Interior.Color = vbGreen
End If
If Abs(Range("G" & i).Value) = Abs(Range("E" & j).Value) Then
Range("E" & j).Interior.Color = vbGreen
End If
If Abs(Range("G" & i).Value) = Abs(Range("G" & j).Value) Then
Range("G" & j).Interior.Color = vbYellow
End If
if Range("D" & i).Value = Range("D" & j).Value Then
Range("D" & j).Interior.Color = vbYellow
Range("F" & j).Interior.Color = vbYellow
End If
If Range("F" & i).Value = Range("F" & j).Value Then
Range("F" & j).Interior.Color = vbYellow
Range("D" & j).Interior.Color = vbYellow
End If
If Range("D" & i).Value = Range("F" & j).Value Then
Range("D" & j).Interior.Color = vbGreen
Range("F" & j).Interior.Color = vbGreen
End If
Next j
Next i
For i = 2 To k1 - 1
For j = 100 To k2 - 1
If Range("E" & j).Interior.Color = vbWhite Or _
Range("F" & j).Interior.Color = vbWhite Then
If Abs(Range("E" & i).Value) = Abs(Range("E" & j).Value) Then
Range("E" & j).Interior.Color = vbYellow
ElseIf Abs(Range("E" & i).Value) = Abs(Range("G" & j).Value) Then
Range("G" & j).Interior.Color = vbYellow
ElseIf Abs(Range("G" & i).Value) = Abs(Range("G" & j).Value) Then
Range("G" & j).Interior.Color = vbYellow
ElseIf Abs(Range("G" & i).Value) = Abs(Range("E" & j).Value) Then
Range("E" & j).Interior.Color = vbYellow
Else
Range("G" & j).Interior.Color = vbRed
Range("E" & j).Interior.Color = vbRed
End If
End If
Next j
Next i
'pour cette partie je n'ai pas de réaction sur la feuille
For i = 2 To k1 - 1
For j = 100 To k2 - 1
If Range("C" & i).Value = Range("B" & j).Value Then
Range("B" & j).Interior.Color = vbGreen
End If
If Range("B" & i).Value = Range("B" & j).Value Then
Range("B" & j).Interior.Color = vbYellow
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub