creation ligne en foction effectif

Sub Prepa()
Dim FinLigne As Long, Ligne As Long
Dim Boucle As Long, Tourne As Long
Ligne = 1
FinLigne = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For Boucle = 1 To FinLigne
  For Tourne = 1 To Feuil1.Range("B" & Boucle).Value
    Sheets("Result").Range("A" & Ligne) = Feuil1.Range("A" & Boucle).Value
    Ligne = Ligne + 1
  Next Tourne
Next Boucle
End Sub

Sub test()
Dim F1 As Worksheet
Set F1 = Worksheets("Feuil1")
Dim TabRes() As Variant
TabRes = F1.Range(F1.Cells(1, 1), F1.Cells(3, 2))

Dim F2 As Worksheet
Set F2 = Worksheets("Feuil2")
Dim cpt As Long
cpt = 1

For i = 1 To UBound(TabRes, 1)
    For j = 1 To TabRes(i, 2)
        F2.Cells(cpt, 1) = TabRes(i, 1)
        cpt = cpt + 1
    Next j
Next i

End Sub