Aide avec SelectionChange(ByVal Target As Range)

Bonjour à vous,
J'essaie de faire un jeu de démineur à partir de vba et j'éprouve certains problèmes!

Je vous explique:
Mon jeu est composé de deux grilles, une servant de grille de jeu (sur laquelle le joueur clique) et d'une deuxième cachée, où les bombes et les chiffres ont été assignés.
La grille cachée se trouve à 14 cases à la gauche de la première.

Ainsi, lorsque je clique sur la case A1 de ma grille de jeu, je veux faire afficher le contenu de la case O1.

Pouvez-vous m'aider?
Merci :)