With Sheets("màj")
.Range("AD2:AO61").Replace What:=année_2, Replacement:=année_1, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
.Range("AD2:AO61").ReplaceFormat:=False
.Range("AD2:AO61").Replace What:=année_6, Replacement:=année_5, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
.Range("AD2:AO61").ReplaceFormat:=False
.Range("BD2:BO76").Replace What:=année_2, Replacement:=année_1, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
.Range("BD2:BO76").ReplaceFormat:=False
.Range("BD2:BO76").Replace What:=année_6, Replacement:=année_5, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
.Range("BD2:BO76").ReplaceFormat:=False
End With