bonsoir chevalmonti,amadeus et le forum
voici la macro que j'utilise pour chercher des doublons dans une colonne en les coloriant en vert et sans les effacer
Sub ColoriageDoublons()
[A:A].Interior.ColorIndex = xlNone
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("A1", [A65000].End(xlUp))
If c <> "" Then mondico.Item(c.Value) = mondico.Item(c.Value) + 1
Next c
For Each c In Range("A1", [A65000].End(xlUp))
If mondico.Item(c.Value) > 1 Then c.Interior.ColorIndex = 4
Next c
End Sub
Pascal
je viens de regarder ton classeur mais il est plein de cellule en couleurs comment fera tu pour repérer un doublon? la macro ne fonctionne pas dans ton classeur au vu du nombre impressionnant de fusionnage éparse comme déja signalé par amadéus