Sub doublonTR2()
Dim a&
Dim i&
Dim x&
With Worksheets("TR2")
x = .Range("A65536").End(xlUp).Row
End With
Range("A1:N" & x).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 2 To x
If Cells(i, 2) = Cells(i + 1, 2) And Cells(i, 9) = Cells(i + 1, 9) And Cells(i, 14) = Cells(i + 1, 14) Then
'Va chercher doublon ds col B,I et N
Cells(i, 1).EntireRow.Interior.ColorIndex = 15
Cells(i + 1, 1).EntireRow.Interior.ColorIndex = 15
End If
Next i
End Sub