Sub Offset()
Dim F1 As Worksheet, F2 As Worksheet, tablo1, ub1&, ub2&, tablo2, nf$, i&, j&
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
tablo1 = F1.Range("A1", F1.Cells(F1.Rows.Count, 1).End(xlUp))
ub1 = UBound(tablo1)
ub2 = Application.Min(1 + 17 * (ub1 - 1), F2.Rows.Count)
tablo2 = F2.Columns(1).Resize(ub2).Formula
nf = F1.Name
For i = 1 To UBound(tablo1)
j = 1 + 17 * (i - 1)
If j <= ub2 Then tablo2(j, 1) = "='" & nf & "'!A" & i
Next
F2.Columns(1).Resize(ub2) = tablo2
End Sub