Créer une liste a partir de bornes (macro)

Sub CreationListe()
    Application.ScreenUpdating = False
    Lig = 3
    DerLig = [A1000].End(xlUp).Row
    For L = 2 To DerLig
        Cells(Lig - 1, "E") = Cells(L, "A")
        b = Cells(L, "A")
        Do While b + 1 <= Cells(L, "B")
            Cells(Lig, "E") = b + 1
            b = b + 1
            Lig = Lig + 1
        Loop
        Lig = Lig + 1
    Next L
End Sub