re,
en supposant que la série doit débuter sur la sélection en cours,
Sub test()
début = Application.InputBox("chiffre du Début", Type:=1)
fin = Application.InputBox("chiffre de Fin", Type:=1)
Selection = début
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Stop:=fin, Trend:=False
End Sub
on peux aussi ajouter une ligne de code pour demander à l'utilisateur de sélectionner une cellule.