options pour la macro lignes suplémentaires

Sub test()
Application.ScreenUpdating = False
lig = 6
fin = [A65536].End(xlUp).Row
Do Until lig > fin
  Rows(lig & ":" & lig + 1).Insert
  lig = lig + 7
  fin = [A65536].End(xlUp).Row
Loop
Application.ScreenUpdating = True
End Sub

Sub lignsupp()
supp = 2
pas = 5
rep = pas
tableau = Range("A1:D" & Range("D65536").End(xlUp).Row)
Cells.ClearContents
For n = 1 To UBound(tableau, 1)
ligne = ligne + 1
  For m = 1 To UBound(tableau, 2)
    Cells(ligne, m) = tableau(n, m)
  Next m
 If n = rep Then
 ligne = ligne + supp
 rep = rep + pas
 End If
Next n
End Sub

Sub lignsupp()
pas = CInt(InputBox("Quel pas ?"))
supp = CInt(InputBox("Nombre de lignes supplementaires"))
rep = pas
tableau = Range("A1:D" & Range("D65536").End(xlUp).Row)
Cells.ClearContents
For n = 1 To UBound(tableau, 1)
ligne = ligne + 1
  For m = 1 To UBound(tableau, 2)
    Cells(ligne, m) = tableau(n, m)
  Next m
 If n = rep Then
 ligne = ligne + supp
 rep = rep + pas
 End If
Next n
End Sub