Bonsoir,
Pressé ? D'abord, tu utilises un tableau Excel ! Si tu fais ainsi, fais-le en connaissance de cause : tu n'as pas de ligne à ajouter, Excel s'en charge...
D'abord, tu sers la première ligne de ton tableau, en 1re colonne, avec la première référence : "2016-0001", selon ta volonté.
Et tu évites à l'avenir que ton tableau se termine par une ligne vide : il ne doit jamais y avoir de ligne sans référence en A !
Tu places la macro ci-dessous dans un module Standard :
Sub AjoutRéf()
Dim n%, réf
With Worksheets("Base")
n = .Cells(.Rows.Count, 1).End(xlUp).Row
réf = Split(.Cells(n, 1), "-")
If Year(Date) = CInt(réf(0)) Then
réf(1) = Format(CInt(réf(1)) + 1, "0000")
Else
réf(0) = Year(Date): réf(1) = "0001"
End If
.Cells(n + 1, 1) = Join(réf, "-")
End With
End Sub
Tu l'affectes à un bouton, comme tu le souhaites, et tu testes.
Cordialement.