Besoin d'aide pour macro

[COLOR="DarkSlateGray"]Sub Tout_fois_n()
Dim oD1, oD2, sDat, i As Long, n As Long
   With Sheets("Feuil1")
      oD1 = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Value
      oD2 = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp)).Value
   End With
   n = -1 + UBound(oD2, 1)
   ReDim sDat(2 * n To -1 + (1 + UBound(oD1, 1)) * n, 1 To 2)
   For i = 2 * n To UBound(sDat, 1)
      sDat(i, 1) = oD1(i \ n, 1)
      sDat(i, 2) = oD2(2 + i Mod n, 1)
   Next i
   Sheets("Feuil1").Cells(2, 4).Resize((-1 + UBound(oD1, 1)) * n, 2).Value = sDat
End Sub[/COLOR]