Sur mon vieux XL2007 fRec.Cells(i, j).DisplayFormat.Interior.Color ne passe pas je l'ai remplacé par fRec.Cells(i, j).Interior.Color.
Par contre votre question me laisse ébahi.
Mais .... dans votre fichier. d'ailleurs vous y accéder par : Sheets("Modèle").Select !
Pour la voir vous faites clic droit sur le nom des feuilles puis Afficher ....
Pour garder le lien de retour, vous ouvrez Modèle et en A3 vous mettez un lien hypertexte.
J'ai fait la modif dans le fichier joint mais n'ai pas pu le tester à cause de cette ligne de code qui ne passe pas.