Bonjour,
avec du vert et du rouge... et pas de couleur si occurence unique
Sub RepérerDoublons() 'JB
'Repérage des doublons entre 2 colonnes
Set D1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
Set Plage1 = Range("A1", [A65000].End(xlUp))
Set plage2 = Range("B1", [B65000].End(xlUp))
[A:B].Interior.ColorIndex = xlNone
For Each c In Plage1
If c <> "" Then D1(c.Value) = ""
Next c
For Each c In plage2
If D1.Exists(c.Value) Then c.Interior.ColorIndex = 3
If c <> "" Then d2(c.Value) = ""
Next c
For Each c In Plage1
If d2.Exists(c.Value) Then c.Interior.ColorIndex = 4
Next c
End Sub