Sub thomas()
Dim toto As Byte
Dim y As Byte
Dim o As Integer
Dim compteur As Byte
Dim ligne2 As Byte
Dim i As Integer
Dim thomas As Variant
Dim thomas1 As Variant
Dim thomas2 As Variant
Dim thomas3 As Variant
Dim thomas4 As Variant
thomas1 = Array(3, 5, 7)
thomas2 = Array(1, 5, 7)
thomas3 = Array(1, 3, 7)
thomas4 = Array(1, 3, 5)
For toto = 1 To 7 Step 2
For i = 3 To Cells(6000, toto).End(xlUp).Row
Select Case toto
Case 1
thomas = thomas1
Case 3
thomas = thomas2
Case 5
thomas = thomas3
Case 7
thomas = thomas4
End Select
For y = LBound(thomas) To UBound(thomas)
For o = 3 To Cells(6000, y).End(xlUp).Row
If Cells(i, toto).Value = Cells(o, y).Value Then compteur = 1
Next o
If compteur = 1 Then
compteur = 0
Else
compteur = 0
ligne2 = Sheets(1).Cells(6000, y).End(xlUp).Row + 1
Sheets(1).Cells(ligne2, y).Value = Cells(i, toto).Value
Sheets(1).Cells(ligne2, y).Select
Selection.Font.ColorIndex = 3
End If
Next y
Next i
Next toto
End Sub