Défilement d'un cycle dans une cellule

Bonjour et encore un grand merci à Curulis57 qui m'a permis de faire (péniblement) mes premiers pas en VBA en résolvant un problème que j'avais voulu résumer sans me rendre compte que l'énoncé n'englobe pas tous les cas de figure. J'avais espéré m'en sortir seul en décortiquant la solution qui m'a été donnée mais ma formation artistique est décidément aux antipodes des compétences indispensables à la programmation. Voici donc ce qu'il faudrait que j'arrive à faire pour boucler la boucle si je puis dire :

A partir du fichier ci joint je voudrais agrandir le cycle A B C B A de la façon suivante :

A B C D E F G H G F E D C B A ou B C D E F G H I H G F E D C B etc jusque G H I J K L M N M L K J I H G

Je me doute qu'il faut changer iFlag = [D2] Mod 10 et If iFlag < 5 Then mais surement pas que...

J'y ai passé deux jours, ne riez pas ce n'est pas drôle