Private Sub Testunique()
Sheets('Feuil1').Activate
For i = m To n
j = o
For j = o To p
If Sheets('feuil1').Cells(j, c).Value = Sheets('feuil1').Cells(i, c).Value Then
Rows(j).Select
Selection.Cut
Rows(i + 1).Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Cells(i, c).Select
With Selection.Interior
.ColorIndex = 3
End With
Rows(i + 1, c).Select
With Selection.Interior
.ColorIndex = 6
End With
i = i + 1
n = n + 1
End If
Next j
Next i
End Sub