Aide a propo vba excel

Bonjour,
Bonjour,

svp j ai ce programme suivant :

Sub test()
Dim i, j As Integer
For i = 1 To compteur Step 1
For j = i + 1 To compteur + 1 Step 1
If Cells(j, 1).Value = Cells(i, 1).Value Then
If Cells(j, 2).Value = Cells(i, 2).Value Then
If Cells(j, 3).Value = Cells(i, 3).Value Then
Cells(j, 1).EntireRow.Delete
i = i - 1
End If
End If
End If
Next j
Next i

End Sub

je veu ke ce programme cherche les lignes repete ( meme valeur de la cellule 1 et cellule 2 et cellule 3 de la ligne ) et les suprime .pour ne pa avoir de repitition.j ai essai avec ce program la mai ca amrche pa aide moi svp mersi d avance

example les lignes suivant y en a les 2 premier lignez sans egaux dans callule 1 et 2 et 3 ( rox 126548C 07MAR10 ) donc fau suprime le repete

ROX 126548C 07MAR10 1 3 6 : 05 0.50 0.7 ASSAL 44951
ROX 126548C 07MAR10 1 1 12 : 16 0.08 0.7 MAJBA 44989
ROX 115696B 08DEC09 1 4 6 : 06 0.66 0.7 LACHH 44383

j espere vous avez compri et mersi d avance ^^