EXCEL Ajout de ligne en automatique

Bonjour,

comme ceci:

Option Explicit
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer, i As Integer
Dim FL2 As Worksheet
Dim NoLig As Long, Var As Variant
Dim derniereLigne As Long
Dim nombre As Integer
  Set FL2 = Worksheets("Feuil2") 'adapter
  derniereLigne = FL2.Range("A" & Rows.Count).End(xlUp).Row
    Set FL1 = Worksheets("Feuil1") 'adapter
    NoCol = 1 'lecture de la colonne A
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        nombre = FL1.Cells(NoLig, NoCol + 1) 'colonne B
        For i = 0 To nombre - 1
        FL2.Cells(derniereLigne + i, NoCol) = FL1.Cells(NoLig, NoCol)
      Next i
     derniereLigne = derniereLigne + i
    Next NoLig
    Set FL1 = Nothing
End Sub

Voilà