Sub incrémente()
DateDepart = Cells(14, 1) 'récupère la première date en cellule A14
Nb = Cells(6, 14) 'récupère le nombre d'itérations en cellule N6
L=ligne(A14) 'récupère le numéro de ligne de A14
For i = L To L+Nb 'boucle pour aller de la ligne 14 jusqu'à la ligne 14+Nb
Cells(i+1, 1) = Cells(i, 1) + 1
Next i
End Sub