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)