Option Explicit

Sub q1()

Dim MonClasseur As Workbook
Dim Cellule As Range, lim As Integer, Init As Integer
'on demande à l'utilisateur le nb de ligne à remplir avec notre suite

    Set MonClasseur = Application.Workbooks.Add
    lim = Application.InputBox(????)
    Init = Application.InputBox(?????)
    pas = Application.InputBox(?????)
    With MonClasseur.Worksheets(1).Cells(1, 1)
        .Value = 1
        .Resize(100).DataSeries RowCol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=100, Trend:=True
    End With
    MonClasseur.SaveCopyAs "temp.xls"
    Debug.Print MonClasseur.Saved
    'Faux
    End Sub