Sub Mise_en_Forme_des_Doublons()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("c5", [C65000].End(xlUp))
mondico.Item(c.Value) = mondico.Item(c.Value) + 1
Next c
For Each c In Range("c5", [C65000].End(xlUp))
If mondico.Item(c.Value) > 1 Then c.Resize(, 3).Offset(0, -1).Interior.ColorIndex = Application.Match(c.Value, mondico.keys, 0) + 2
Next c
End Sub
UserForm1.ListBox1.List = f2.Range("a2:I" & f2.[b65000].End(xlUp).Row).Value