Copier les cellules d'une feuille avec condition

Bonjour à tous,

Je viens vers vous pour vous demandez de l'aide encore une fois. Depuis plusieurs mois je travail sur un fichiers de planning pour mon responsable. Au fur et à mesure que j'approche du but ça demande évolue .

Sur le dernier fichier j'ai déjà une fonction qui créer les onglets des semaines (S1,S2,S3, ...) en avec des dates qui correspondent.

Je cherche à copié les cellules des jours avec texte et couleurs ici

sur les feuilles des semaines correspondantes, en changeant à chaque fois que c'est

le chiffre 1 par (Station 703761 Agent 703918 en vert),

le chiffre 2 par (Station 703762 Agent 703919 en jaune)

le chiffre 3 par (Station 703763 Agent 703920 en orange)

J'aimerai aussi que ça soit dynamique, c'est à dire que si je change une cellule dans la feuille annuel ça soit reporté directement dans les feuilles des semaines, mais en gardant la possibilité de modifier les cellules des semaines indépendamment .

Je sais que c'est un peu compliqué, si vous pouvez m'aider .

J'ai avancé dans mon souci et je bloque sur un un truc tout bête.

Je cherche à faire en sorte que si dans la case C4 le chiffre et de 1 ça affiche dans C5 "Agent 703918 en vert".

Je voudrai le faire en vba pour laisser la possibilité d'édité la case C5 par la suite .

J'ai essayé le code suivant mais il ne fait rien dans la code VBA de la feuille.

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Hot1St As Variant, Hot1Ag As Variant

Set Hot1St = "Station 703761"
Set Hot1Ag = "Agent 703918"

If Range("C4") = 1 Then
 Sheets("S1").Range("C5") = Hot1St

End Sub