Problème concaténation doublons

bonjour ,

j'ai crée une macro qui a pour but de rajouter un 1 a chaque doublons dans la colonne A le problème c'est que ca rajoute seulement à un doublons et pas les deux je sais que je peux utiliser une msf mais j'ai vraiment besoin de faire comme ça voici la macro en question

Sub UM()
Dim Plage As Range
Dim cel As Range

With Worksheets("Données ")

'en colonne "A" à partir de A1
Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
Plage.Interior.ColorIndex = xlNone

End With

For Each Cel In Plage

If Application.CountIf(Plage, Cel.Value) > 1 Then

cel = "1--" & cel.Value




End If

Next cel

End sub

Merci d'avance

Bonsoir,

Et en mettant le résultat en colonne B ?

    For Each Cel In Plage
        If Application.CountIf(Plage, Cel.Value) > 1 Then Cel.Offset(0, 1) = "1--" & Cel.Value
    Next Cel

A quoi vous sert l'indice "1--" ?