Sub Numéro()
Dim Ancien As String, Nouveau As String
Ancien = Feuil1.Range("A" & Rows.Count).End(xlUp)
Nouveau = "TEC/" & Right(Year(Date), 2) & "/" & Right("000" & Split(Ancien, "/")(2) + 1, 3)
Feuil1.Range("A" & Rows.Count).End(xlUp).offset(1,0)=Nouveau
MsgBox Nouveau
end Sub