Ajouter un nombre de lignes égale à la valeur contenue ds une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Column = 28 Then
    For i = 1 To Target
        Target.Offset(1, 0).EntireRow.Insert
    Next
End If
End Sub

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim x As Integer 'déclare la variable x (incrément)
Dim y As Byte 'déclare la variable y (nombre de lignes)
 
Application.ScreenUpdating = False 'masque les changements à l'écran
dl = Range("AB65536").End(xlUp).Row 'définit la dernière ligne
For x = dl To 5 Step -1 'boucle 1 : inversée de la dernière à la ligne 5
    If Cells(x, 28) > 1 Then 'condition : si la valeur de la cellule est supérieure à 1
        Rows(x + 1).Select 'sélectionne la ligne
        For y = 1 To Cells(x, 28).Value 'boucle 2 : sur le nombre de ligne
            Selection.Insert shift:=xlDown 'insère une ligne en dessous
        Next y 'prochaine ligne de la boucle 2
    End If 'fin de la condition
Next x 'prochaine ligne de la boucle 1
Application.ScreenUpdating = True 'affiche les changements à l'écran
End Sub