Pour simplifier, j'ai créé une case pour calculer le prochain numéro
=MAX(ANNEE(AUJOURDHUI())*100000;MAX(A:A))+1
remplace A:A par DArrete
Ensuite, j'ai cette macro
Sub incrementer()
num = Cells(1, "E")
Cells(Cells(Application.Rows.Count, 1).End(xlUp).Row + 1, "A") = num
End Sub
où Cells(1,"E") contient le prochain numéro
déplace en fonction de ton besoin, voire même crée dans un autre feuille