XL 2010 [RESOLU]Compter puis supprimer doublons

Sub comptabiliser_transistors()
    Dim dl As Long, i As Long
    dl = Range("Tableau1").Rows.Count + 1
    Call Tri_Croissant_ColonneA
    With ThisWorkbook.Sheets("Feuil1")
        For i = 2 To dl
            .Cells(i, 2) = 1
    Next i

    For i = dl To 2 Step -1
        If .Cells(i, 1) = .Cells(i, 1).Offset(-1, 0) Then
            .Cells(i, 2).Offset(-1, 0) = .Cells(i, 2) + 1
            .Rows(i).Delete
        End If
    Next i
End With
End Sub