Sub test()
Dim a, b, tablo(), i&, j&, n&
Application.ScreenUpdating = False
a = Sheets("Produit").Range("A1").CurrentRegion.Value
b = Sheets("Pays").Range("A1").CurrentRegion.Value
ReDim tablo(1 To UBound(a) * UBound(b), 1 To 3)
For i = 1 To UBound(a)
For j = 1 To UBound(b)
n = n + 1: tablo(n, 1) = a(i, 1): tablo(n, 2) = b(j, 1)
Next: Next
Feuil3.Cells(1, 1).Resize(n, 2).Value = tablo
End Sub