validation des données en couleur

Bonjour à tous

Je suis en train de créer un planning et j'ai beaucoup d'infos à mettre donc j'utilise des couleurs pour mieux me repérer et pour tout le monde qui vont l'utiliser

L'onglet 2014 lui fonctionne car je part de cette base

Mais quand je fais un copier coller avec liaison sur l'onglet 2014(2) et que je change les infos sur 2014 les couleurs ne suivent pas sur l'onglet 2014(2). Les infos oui mais pas les couleurs.

Le code est

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:FF165], Target) Is Nothing Then
On Error Resume Next
If Not Intersect([FF165], Target) Is Nothing Then Target.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = [F].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [M].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [P].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [A].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [D].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
Target.Interior.ColorIndex = [Date].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub


Pouvez vous m'aidez car vraiment galère a trouvez seul
Titoffe60