Suppression dans Collection

Sub SansDoublonsMoinsUtiliser()
Dim Collection1 As New Collection
Dim Plage1 As Range, Plage2 As Range, Cellule As Range
Dim x As Integer

With Sheets(1)
Set Plage1 = .Range("B3:B8")
Set Plage2 = .Range("C3:C6")
End With

  For Each Cellule In Plage1
    On Error Resume Next
    If Err = 0 Then Collection1.Add Cellule, CStr(Cellule)
    On Error GoTo 0
  Next Cellule

For Each Cellule In Plage2
    For x = Collection1.Count To 1 Step -1
        If Cellule = Collection1.Item(x) Then Collection1.Remove (x)
    Next x
Next Cellule
End Sub

Sub SansDoublonsMoinsUtiliser()

Dim Collection1 As New Collection
Dim Plage1, el, el1
Dim Plage2
Dim Cellule ' As String

With Sheets(1)
Plage1 = .Range("B3:B8")
Plage2 = .Range("C3:C6")
End With

  For Each Cellule In Plage1
    On Error Resume Next
    If Err = 0 Then Collection1.Add Cellule, CStr(Cellule)
    On Error GoTo 0
  Next Cellule
  
  For Each el In Collection1
    For Each el1 In Plage2
        If el = el1 Then Collection1.Remove el
    Next el1
  Next el
 
End Sub