en trainant sur différents sites, j'ai adapté mon code.
Il y a surement plus efficace.
Sub augmenteDate()
Dim jour As Date, d, Bissextile As Boolean, An%
Range("F3:F11").ClearContents
For Each d In Range("G3:G11")
An = Year(d) + 1
Bissextile = (An Mod 400 = 0) Or (An Mod 4 = 0 And (Not An Mod 100 = 0))
If Bissextile = False Then
jour = DateAdd("d", 365, Day(d))
Else
jour = DateAdd("d", 364, Day(d))
End If
Cells(d.Row, "F") = DateSerial(Year(d) + 1, Month(d), Day(jour))
Next d
End Sub
Si vous avez une autre proposition, je suis preneur.
Cordialement