Numérotation des doublons

Bonjours, je suis à la recherche d'un code pour pouvoir finir ma macro afin de numéroter mes doublons comme cela en colonne B :

Col A --------- Col B

AA --------- 1

BB --------- 1

BB --------- 2

BB --------- 3

CC --------- 1

DD --------- 1

DD --------- 2

ect...

j'ai rechercher sur les forum je n'arrive pas à trouver de code que je pourrais adapté. il y a bien la fonction NB.SI($A$1:$A1;$A1) qui fonctionnerais mais je voudrais intégrer cela dans ma macro pour le faire automatiquement, sans avoir a stopper la macro, rentrer la formule étendre la formule jusqu'en bas et relancer la macro pour continuer. est ce que vous auriez une solution ?

Bonjour,

A quoi ressemble votre code déjà réalisé ? C'est une suppression des doublons ? Vos données sont triées ?

Parce qu'une boucle avec incrémentation et test conditionnel suffirait :

Sub INCRE()
Dim I%, L%
L = 2
With Worksheets("Feuil1")
    Do While .Cells(L, 1) <> ""
        If .Cells(L, 1) <> .Cells(L - 1, 1) Then
            I = 1
            Else
            I = I + 1
        End If
        .Cells(L, 2) = I
        L = L + 1
    Loop
End With
End Sub

Avec le fichier joint qui va bien.

Cdlt,

Merci Ergotamine c'est exactement ce qu'il me fallait cela fonctionne parfaitement