Lancer une Macro Differente en fonction d'une Valeur Cellule qui change

Bonjour,
J'ai un soucis, voici le code la macro ne veut pas se lancer, pouvez-vous m'aider svp c'est urgent.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("I1")) Is Nothing Then: Exit Sub
Select Case Target.Value

Case "JANVIER"
MacroA
Case "FEVRIER"
MacroB
Case "MARS"
MacroC
Case "AVRIL"
MacroD
Case "MAI"
MacroE
Case "JUIN"
MacroF
Case "JUILLET"
MacroG
Case "AOUT"
MacroH
Case "SEPTEMBRE"
MacroI
Case "OCTOBRE"
MacroJ
Case "NOVEMBRE"
MacroK
Case "DECEMBRE"
MacroL
Case "ANNUEL"
MacroM

End Select
End Sub
Merci par avance.