Macro changeante !!!

Bonjour à tous 😉

J'ai créé une macro toute simple qui me permet de recopier dans une autre cellule une formule faisant référence à une cellule précise ( "N5" dans cet exemple)

Selection.Copy
ActiveWindow.SmallScroll Down:=86
ActiveCell.Offset(75, 0).Range("A1").Select
ActiveSheet.Paste

Voici cette formule (qui me permet d'afficher un "A" si le contenu de la cellule N5 est égale ou supérieure à 10, ou un "NA" si elle est inférieure à 10, elle n'affiche rien si cette cellule est vide):

=SI(ESTVIDE('C:\Bulletins\Huma\5 Huma\5B\[Géographie.xls]"Matière"'!$N$5);"";SI(ET('C:\Bulletins\Huma\5 Huma\5B\[Géographie.xls]"Matière"'!$N$5>-1;'C:\Bulletins\Huma\5 Huma\5B\[Géographie.xls]"Matière"'!$N$5<10);"NA";"A"))

Voilà mon problème...

Je souhaiterais qu'à chaque fois que j'active cette macro, celle-ci fasse référence à la cellule suivante (c-à-d N6 au lieu de N5, ensuite N7 au lieu de N6 ... et ainsi de suite jusqu'à N40)

Je pensais dans la macro introduire la notion de "n=5" et de "n+1" ... jusqu'à "si n=40" alors "n=5" .. pour réinitialiser la macro pour une utilisation ultérieure.

PS: Pour info, ce fichier contient les points /20 de 35 élèves en géographie. Chaque élève est coté sur 20 dans les cellules N5 (pour le premier), N6 pour le deuxième ... etc jusqu'à N40 pour le trente-cinquième.

Grand merci de m'aider à résoudre ce problème qui me faciliterait énormément la tâche.
Bonne journée à tous.

Curieux