Macro pour Inserer des lignes dans un fichier excel

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim y As Byte 'déclare la variable y (incrément)

Application.ScreenUpdating = False 'masque les changements à l'écran
dl = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne dl
For x = dl To 1 Step -1 'boucle 1 : inversée de la dernière ligne à la première
    For y = 1 To 22 'boucle 2 : 22 fois
        Rows(x).Copy 'copie la ligne x
        Rows(x).Insert shift:=xlShiftDown 'l'insère en décalant vers le bas
    Next y 'prochaine fois de la boucle 2
Next x 'prochaine ligne de la boucle 1
Application.ScreenUpdating = True 'Affiche les changements à l'écran
End Sub