Dim tabloRéf, tabloVal
Dim t#, u#, Lig#
tabloRéf = Range("A3:A" & Range("A65536").End(xlUp).Row).Value
tabloVal = Range("B3:B" & Range("B65536").End(xlUp).Row).Value
Lig = 3
For t = LBound(tabloRéf) To UBound(tabloRéf)
For u = LBound(tabloVal) To UBound(tabloVal)
Cells(Lig, 5) = tabloRéf(t, 1)
Cells(Lig, 6) = tabloVal(u, 1)
Lig = Lig + 1
Next u
Next t