Option Explicit
Sub prepa_publi()
Dim Compteur As Double, i%, x%
Compteur = 1
With Feuil2
.Cells.ClearContents
For i = 2 To Feuil1.Cells(65000, 1).End(xlUp).Row
x = Feuil1.Cells(i, 2).Value - 1
Feuil1.Range("A" & i).Copy Destination:=.Range("A" & Compteur & ":A" & Compteur + x)
Compteur = Compteur + x + 1
Next i
.Activate
.Cells.Columns.AutoFit
End With
End Sub