Comment trouver sur une colonnes plusieurs produits identiques

Bonjour,


j'ai réussi a trouver deux produits identiques mais je pense que cela s'arrête à deux comment faire pour en trouver 4
voici une copie de mon code

Private Sub CommandButton2_Click()
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
For Each q In Range([e3], [e65000].End(xlUp))
If d1.exists(q.Value) Then d2(q.Value) = ""
d1(q.Value) = ""
Next q
If d1.Count > 0 Then [q2].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
End Sub