Private Sub Btn_Click()
Dim PremNumFact, NbFact, Cel As Integer
PremNumFact = TextBox1
NbFact = TextBox2
With Sheets("Feuil1")
For Cel = 2 To NbFact + 1
.Cells(Cel, 1) = Format(PremNumFact, "A #### 0000 ### 000")
PremNumFact = PremNumFact + 1
Next Cel
End With
End Sub