Help pour une macro

Sub Test()
Dim WsS As Worksheet, WsC As Worksheet
Dim Cel As Range
Dim i As Integer
Dim LigneC As Long
    Set WsS = Worksheets("Feuil1") 'Feuille source
    Set WsC = Worksheets("Feuil2") 'Feuille cible
    LigneC = 2
    For Each Cel In WsS.Range("A2:A" & WsS.Range("A" & Rows.Count).End(xlUp).Row)
        If Cel.Offset(0, 1) <> "" And IsNumeric(Cel.Offset(0, 1)) Then
            For i = 1 To Cel.Offset(0, 1)
                WsC.Cells(LigneC, 1) = Cel
                LigneC = LigneC + 1
            Next i
        End If
    Next Cel
    Set WsC = Nothing: Set WsS = Nothing
End Sub