Tracer des ligne dans un rectangle variable

Bonjour,

J'ai un programme que trace les bordures d'un rectangle et qui le centre dans une plage. Je cherche à ce que des lignes soient tracées dans ce rectangle. les lignes seront de même longueur que le rectangle et placer à distance variable de la ligne supérieur de celui-ci. le nombre de ligne est aussi variable.

Voici le programme pour créer le rectangle:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim zone As Range, i
Set zone = [A1:CM48]
Cancel = True
Cells.Borders.LineStyle = xlNone
Set Target = Intersect(Target, zone)
If Target Is Nothing Then Exit Sub
If Target.Count = 1 Then Exit Sub
Set Target = zone(1 + (zone.Rows.Count - Target.Rows.Count) / 2, 1 + (zone.Columns.Count - Target.Columns.Count) / 2) _
    .Resize(Target.Rows.Count, Target.Columns.Count)
For i = 7 To 10
    Target.Borders(i).Weight = xlMedium
    Target.Borders(i).ColorIndex = 3
Next
[A1].Select
End Sub

Et voici sur quoi je suis partie pour créer les lignes: (pas vraiment fini)

Set plage2 = Range(hori, verti)
Dim Ligne&, NbL&, s2$
s2 = "Nombres de lignes?"
NbPanne = InputBox(s2)
For i = 1 To NbL
s2 = "Dimmension verticale de la ligne en nombre de case" & _
vbLf & "max = " & Range(plage2).Columns.Count
horiL = hori
vertiL = InputBox(s)
f cellVerti <= 0 Then cellVerti = 1
set rgRectangle = Cells(cellHori, cellVerti).Resize(verti, hori)
rgRectangle.BorderInferrior 1, 1, , RGB(0, 0, 225)
Next i

J'ai aussi mis un fichier pour que le résultat soit un peu plus visuel.

Merci pour votre aide.

Toujours le même soucis avec ce programme.