[VBA] Préservation formules existantes (+identification adresse cellules)

Sub test_A()
Dim Z$, X&, Y&, p As Range: [A3:A1600] = Empty: Application.ScreenUpdating = False
Z = InputBox("Nombre d'items Nombre de ligne?", "Préparation du tableau", "10 5"): X = Split(Z)(0): Y = Split(Z)(1)
Set p = [A3].Resize(X * Y): p = "=1+INT((ROW()-3)/" & Y & ")": p.Value = p.Value
End Sub

Sub test_B()
Dim XY, X&, Y&, sPrompt$, t, i&: [A3:A1600] = ""
sPrompt = _
"Nombre d'items/Nombre de lignes?" & Chr(13) & Chr(13) & "(saisie valide : X/Y)"
XY = InputBox(sPrompt, "Préparation du tableau", "10/5")
If UBound(Split(XY, "/")) < 1 Then Exit Sub
X = Split(XY, "/")(0): Y = Split(XY, "/")(1): ReDim t(1 To X * Y, 1 To 1)
For i = 1 To UBound(t): t(i, 1) = 1 + Int((i - 1) / Y): Next
[A3].Resize(UBound(t)) = t
End Sub

Dim NlignesVides& 'mémorise la variable

Sub InitialisationJustePourTester()
Dim Nlig, Hmax, i&, j&, n&, PC As Range
On Error Resume Next
Nlig = Int(Val(InputBox("Nombre de lignes du tableau, limite 20 000 :", "Initialisation", 500)))
If Nlig < 1 Or Nlig > 20000 Then Exit Sub
Hmax = Int(Val(InputBox("Maximum de lignes par zone, limite 1000 :", "Initialisation", 10)))
If Hmax < 1 Or Hmax > 1000 Then Exit Sub
ReDim a(1 To Nlig, 1 To 1)
Randomize
For i = 1 To Nlig
    If i > j Then
        n = n + 1
        j = j + Int(1 + Rnd * Hmax)
    End If
    a(i, 1) = n
Next
Set PC = [PremiereCellule]
Application.ScreenUpdating = False
CheckBox1 = True 'Manuel
PC(3).Resize(Rows.Count - PC.Row - 1).SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete 'RAZ
NlignesVides = Nlig: CheckBox1 = False 'décale ce qui est sous le tableau
NlignesVides = 0: PC(2).Resize(Nlig) = a
End Sub