XL 2010 [RESOLU]Compter puis supprimer doublons

[cp4]

Bonsoir🙂,

Après avoir trier mon tableau suivant la colonne A (Références de transistors). Je voudrais insérer le nombre d'une même référence en colonne B. Puis supprimer les lignes en doublons. J'ai commencé par faire une boucle inversée mais j'avoue que je suis bloqué pour comptabiliser les références.

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

En vous remerciant par avance.

edit: Résolu après une bonne nuit de récupération. Merci.