Incrementer un numéro suivant l'année, remise à zéro

Bonjour à tous,

J'utilise le code suivant pour incrémenter des numéros de série :

Sheets("Feuil1").Range("A1").Value = (Right(Year(Date), 2) & Right([max(Feuil2!a1:a65000)], 4)) + 1

Cliquez pour agrandir...

Les numéros se composent en 6 chiffres. Les deux premiers pour l'année en cours, les 4 derniers pour une incrémentation en +1 (110001 pour le premier de l'année 2011, 110002, 110003,...).
Le code écrit les deux derniers chiffres de l'année en cours + le plus grand nombre des 4 derniers chiffres présent en feuille 2 dans la cellule Feuil1!A1.

Ce code fonctionne correctement mais j'aimerais le faire évoluer de façon à remettre à 0001 les quatre derniers chiffres lorsque je change d'année (premier numéro de 2012 = 120001).

Pouvez vous m'aider SVP ?

Merci