Dupliquer une liste de produits

Option Base 1

Sub ProduitsxFournisseurs()
Dim result()
Set produits = Range("id_produit")
Set fournisseurs = Range("id_entity")
nbP = produits.Count
nbF = fournisseurs.Count
ReDim result(nbP * nbF, 2)
k = 1
For i = 1 To nbF
    For j = 1 To nbP
        result(k, 1) = produits(j): result(k, 2) = fournisseurs(i)
        k = k + 1
    Next j
Next i
Sheets("résultats").Range("$a$2").Resize(nbP * nbF, 2) = result
End Sub