EXCEL copier les lignes par un multiplicateur

Option Explicit 

Sub dupliquer_n_fois() 
Dim Derlig1 As Long, Lig As Long, Nbre As Integer, T_in() 
Dim Derlig2 As Long 

Application.ScreenUpdating = False 
Sheets(2).Range("A2:D30000").Clear 

With Sheets(1) 
     Derlig1 = .Columns("A").Find("*", , , , , xlPrevious).Row 
     For Lig = 2 To Derlig1 
          Nbre = .Cells(Lig, "E") 
          T_in = .Range(.Cells(Lig, "A"), .Cells(Lig, "D")).Value 
           
          With Sheets(2) 
               Derlig2 = .Columns("A").Find("", .Range("A1")).Row 
               .Cells(Derlig2, "A").Resize(Nbre, 4) = T_in 
          End With 
     Next 
End With 
Sheets(2).Select 
End Sub