Problème avec ma macro ci-dessous pour mise en forme

Bonjour

La macro ci-dessous, doit-être insérer pour chaque
feuille. Qui aurait une idéee pour que la macro soit
insérée une fois et pour toutes les feuilles
(ThisWorkbook). Objectif diminuer la taille de mon fichier
excel.

Merci Jean-Marc

Option Explicit
Private Sub Janvier_Click()
Worksheets("Janvier").Visible = True
Worksheets("Janvier").Activate
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("A1:BR140"), Target) Is Nothing Then
Exit Sub
If IsEmpty(Target.Value) Then
Target.Interior.ColorIndex = xlColorIndexAutomatic
Exit Sub
End If
Select Case Target.Value

Case "V" 'Vacances'
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 1
Case "F" 'Formation'
Target.Interior.ColorIndex = 4
Target.Font.ColorIndex = 1
Case "PM" 'Permanence du matin'
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 1
Case "TP" 'Temps partiel'
Target.Interior.ColorIndex = 15
Target.Font.ColorIndex = 15
Case "PS" 'Permanence du soir'
Target.Interior.ColorIndex = 6
Target.Font.ColorIndex = 1
Case "MA" 'Maladie & Accident'
Target.Interior.ColorIndex = 35
Target.Font.ColorIndex = 1
Case "MP" 'Militaire & protection civile'
Target.Interior.ColorIndex = 10
Target.Font.ColorIndex = 1
Case "CS" 'Congé spécial'
Target.Interior.ColorIndex = 41
Target.Font.ColorIndex = 1
Case "HS" 'Heures supllémentaire'
Target.Interior.ColorIndex = 20
Target.Font.ColorIndex = 1
Case "JF" 'Jour férié'
Target.Interior.ColorIndex = 46
Target.Font.ColorIndex = 46
Case "G" 'Manque une personne pour la permanence'
Target.Interior.ColorIndex = 3
Target.Font.ColorIndex = 3
End Select


End Sub