Numérotation de ligne en VBA

Bonjour à tous,

Pour l'organisation de concours j'ai besoin de réaliser un bordereau de participation. Ce bordereau comporte 8 colonnes (de A à H) dont deux (A et E) qui sont normalement masquées. Cinq colonnes sont verrouillées (A, B, C, E et F) et deux sont totalement libres (G et H).
Trois colonnes (B, C et D) ont un format de nombre personnalisé et la colonne «E» contient une fonction pour créer le N° d'adhérent complet. Chaque participant peut concourir avec un nombre maxi d'objet, c'est la cellule nommée Maxi_Auteur.
Au Départ le bordereau est totalement vide, chaque fois qu'un N° de carte (colonne D) est saisi les colonnes B et C sont automatiquement remplies.
Ce que je souhaiterais s'est avoir une numérotation automatique de la colonne «A». Cette numérotation ira de 1 à 4 (Maxi_Auteur). La saisie doit pouvoir se faire de façon totalement aléatoire, c'est dire qu'on n'est pas obligé se saisir les quatre objets d'un même auteur les uns à la suite des autres, de même qu'un auteur n'est pas tenu de présenter 4 objets.
De façon plus claire, chaque fois qu'une saisie à lieu colonne «D» je dois numéroter la colonne «A» en incrémentant de 1 à chaque fois pour un même N° d'adhérent.
Ci-dessous un lien vers un classeur exemple avec ce que j'ai réalisé avec des fonctions en colonne «A» mais je n'arrive pas au résultat escompté. Je pense qu'il faut passer par du VBA dans une procédure Worksheet.

http://www.cijoint.fr/cjlink.php?file=cj201012/cijkOA7qqd.xls

Merci d'avance pour votre aide.
Cordialement
Mistral