Sub a()
Dim nombre&, nomf$, p As Range
nombre = Feuil1.[A1] 'le nombre d'ID à générer
nomf = Feuil1.[A2] 'le nom de la feuille
Application.ScreenUpdating = False
Sheets.Add(after:=Sheets(Sheets.Count)).Name = nomf
With ActiveSheet
.[A1] = 9000000000#
Set p = .[A1].Resize(nombre)
[A1].AutoFill p, 2
End With
End Sub