Sub ABCD()
Dim LigFin As Long, NbLig As Long
LigFin = Sheet4.[B1000000].End(xlUp).Row: NbLig = LigFin - 1
Sheet1.[A2].Resize(NbLig * 32, 2).FormulaR1C1 = "=INDEX(Sheet4!R2C1:R" & LigFin & "C2,INT((ROW()-2)/32+1),COLUMN())"
Sheet1.[C2].Resize(NbLig * 32, 2).FormulaR1C1 = "=INDEX(Sheet2!R2C1:R33C2,MOD(ROW()-2,32)+1,COLUMN()-2)"
End Sub