Sub Communs()
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In Range([A1], [A65000].End(xlUp))
If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In Range([B1], [B65000].End(xlUp))
If MonDico1.Exists(c.Value) Then
If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value
End If
Next c
i = 1
Range("H1:H" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub
Sub NonDoublons1()
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In Range([A1], [A65000].End(xlUp))
If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In Range([B1], [B65000].End(xlUp))
If Not MonDico1.Exists(c.Value) Then
If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value
End If
Next c
Range("M1:M" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub
Sub NonDoublons2()
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In Range([B1], [B65000].End(xlUp))
If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In Range([A1], [A65000].End(xlUp))
If Not MonDico1.Exists(c.Value) Then
If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value
End If
Next c
Range("P1:P" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub