Obtenir un tableau a partir de 2 autres tableaux

Sub extraire()
Range("C2:C" & [C65000].End(xlUp).Row).Name = "non"
Set Retenues = CreateObject("Scripting.Dictionary")
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row)
     If IsError(Application.Match(cel.Value, [non], 0)) And _
        Not Retenues.Exists(cel.Value) Then Retenues.Add cel.Value, cel.Value
Next cel
Lig = Retenues.Count + 1
Range("E2:E" & Lig).Value = Application.Transpose(Retenues.items)
End Sub

TableProductsToExclude = "non"
Set Retenues = CreateObject("Scripting.Dictionary")
For m = LBound(TableAllProducts) To UBound(TableAllProducts)
    If IsError(Application.Match(TableAllProducts(m, 0), [non], 0)) And Not Retenues.Exists(TableAllProducts(m, 0)) Then Retenues.Add TableAllProducts(m, 0), TableAllProducts(m, 0)
Next m
Lig = Retenues.Count + 1
Range("E2:E" & Lig).Value = Application.Transpose(Retenues.items)