Re : incrémenter une date (x) fois
Il s'agit que tu transformes la macro ainsi :
J'ai supposé que la cellule G10 était sur la même
feuille où doit se produire l'incrémentation.
La variable X, le nom de la feuille, l'adresse des
cellules, tout est adaptable!
Le code peut-être écrit dans n'importe quel module.
'--------------------------
Sub test()
Dim X As Integer
With Worksheets("Feuil1") 'Adapte le nom de la feuille
X = .Range("G10") 'La cellule de ton choix
With .Range("A1")
.AutoFill Destination:=.Resize(x), Type:=xlFillDays
End With
End With
End Sub
'--------------------------