Macro dupplication de ligne (nbre dupplications variable)

Private Sub CommandButton1_Click()

Dim Cellule As Range
Dim Nomfeuille1 As String
Dim Col As String
Dim i As Byte
'parametre
Nomfeuille1 = "Feuil1"
Col = "c"
With Sheets("Feuil2")

For Each Cellule In Sheets(Nomfeuille1).Range(Col & "2:" & Col & Sheets(Nomfeuille1).Range(Col & Sheets(Nomfeuille1).Rows.Count).End(xlUp).Row)
    If IsNumeric(Cellule.Value) Then
        For i = 1 To CByte(Cellule.Value) + 1
            Sheets("Feuil1").Rows(Cellule.Row).Copy _
         Destination:=.Rows(.Range("A" & .Rows.Count).End(xlUp).Row + 1)
        Next i
    End If
Next Cellule

End With

End Sub

Sub duppliq()
Dim Cel As Range
Dim I As Long
Application.ScreenUpdating = False
Columns("E:G").Clear
Range("E1").Resize(1, 3).Value = Range("A1").Resize(1, 3).Value
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(Rows.Count, 5).End(xlUp)(2).Resize(Cells(I, 3) + 1, 3).Value = Cells(I, 1).Resize(1, 3).Value
Next I
End Sub

Cells(I, 3)