Salut, j'ai fait un bout de code, mais je crains qu'il y ait une erreur parce que ma cellule A5 n'est pas modifié:
Sub Macro2()

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim MAdate As Date
MAdate = Range("A5").Value
Dim newdate As Integer
newdate = InputBox("choississez la date?", _
    "changement d'année", "", 7000, 7000)
If newdate < MAdate Then
intervalle = Year(MAdate) - newdate
Else
intervalle = newdate - Year(MAdate)
End If
Debug.Print DateAdd("yyyy", -intervalle, MAdate)
Range("A5").Value = MAdate
End Sub
Merci beaucoup de votre aide