Pb de report de couleur de cellule

bonjour à tous
J'ai 2 tableaux sur 2 feuilles différentes.
Sur le premier je mets des lettres dans les cellules et elle se colorent en
fonction de la couleur associée à cette lettre.Jusqu'ici pas de problème.
Le deuxième tableau est en fait un récapitulatif du 1er, j'ai donc la 1ère
cellule du tableau qui est égale à la 1ère du 1er tableau.Les lettres se
rapportent bien mais pas la couleur.
Voici le programme que j'utilise

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("B5", ["AF208"])) Is Nothing Then
For Each c In Target
Select Case c.Value
Case "AM": c.Interior.ColorIndex = 3
Case "AT": c.Interior.ColorIndex = 3
Case "M": c.Interior.ColorIndex = 20
Case "FM": c.Interior.ColorIndex = 20
Case "FMO": c.Interior.ColorIndex = 20
Case "N": c.Interior.ColorIndex = 37
Case "FN": c.Interior.ColorIndex = 37
Case "S": c.Interior.ColorIndex = 38
Case "FS": c.Interior.ColorIndex = 38
Case "FSO": c.Interior.ColorIndex = 38
Case "J": c.Interior.ColorIndex = 19
Case "FJO": c.Interior.ColorIndex = 19
Case "R": c.Interior.ColorIndex = 35
Case "FR": c.Interior.ColorIndex = 35
Case "CP": c.Interior.ColorIndex = 35
Case "F": c.Interior.ColorIndex = 24
Case "EM": c.Interior.ColorIndex = 40
Case "CPA": c.Interior.ColorIndex = 40
Case "MA": c.Interior.ColorIndex = 40
Case "NA": c.Interior.ColorIndex = 40
Case "B": c.Interior.ColorIndex = 40
Case "D": c.Interior.ColorIndex = 40
Case "H": c.Interior.ColorIndex = 40
Case "DE": c.Interior.ColorIndex = 40
Case Else: c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub

Lorsque j'utilise se programme sur d'autres feuilles, je ne peux plus
verrouiller et masquer mes formules.
Si quelqu'un pouvait m'aider se serai sympa
Merci d'avance pour votre aide

--


Fred