Comparaison croisée colonnes

Sub es()
    Dim t(), t1(), t2(), i As Long, x As Long, m As Object, z
    Set m = CreateObject("Scripting.Dictionary")
    t2 = Range("a2:b" & Cells(Rows.Count, 1).End(3).Row)
    t = Range("c2:d" & Cells(Rows.Count, 1).End(3).Row)
    For i = 1 To UBound(t2)
        z = t2(i, 1) & "#" & t2(i, 2)
        If Not m.Exists(z) Then m.Add z, z
    Next i
     For i = 1 To UBound(t)
        z = t(i, 1) & "#" & t(i, 2)
        If Not m.Exists(z) Then m.Add z, z
    Next i
    t = m.keys
    ReDim t1(0 To UBound(t), 1 To 2)
    For i = 0 To UBound(t)
        t1(i, 1) = Split(t(i), "#")(0)
        t1(i, 2) = Split(t(i), "#")(1)
    Next i
    [E2].Resize(UBound(t) + 1, 2) = t1
End Sub

Sub es()
 Dim m As Object, t, k
    Application.ScreenUpdating = 0
    Set m = CreateObject("Scripting.Dictionary")
    t = Range("b2:b" & Cells(Rows.Count, 2).End(3).Row)
    For Each k In t: m(k) = "": Next k
    t = Range("d2:d" & Cells(Rows.Count, 4).End(3).Row)
    For Each k In t
    If m.Exists(k) Then m.Remove (k) Else m(k) = ""
    Next k
    Range("f2").Resize(m.Count, 1) = Application.Transpose(m.keys)
 End Sub

Sub Solo()
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In [invent] ' place (B2:B7) nommée par facilité de lecture
     MonDico.Item(c.Value) = MonDico.Item(c.Value) + 1
  Next c
For Each c In [vcenter] ' plage (D2:D7) nommée
     MonDico.Item(c.Value) = MonDico.Item(c.Value) + 1
  Next c
  i = 2
  For Each c In MonDico.Keys
    If MonDico(c) = 1 Then
      Cells(i, 8) = c
      i = i + 1
    End If
  Next
End Sub

Sub colorer()
For Each c In [resultat]
  If Not IsError(Application.Match(c.Value, [vcenter], 0)) Then
    c.Interior.ColorIndex = 6
  Else
    c.Interior.ColorIndex = 20
  End If
Next c
For Each c In [resultat]
  If Not IsError(Application.Match(c.Value, [invent], 0)) Then
    c.Interior.ColorIndex = 3
  Else
    c.Interior.ColorIndex = 20
  End If
Next c
End Sub