Bonjour, Comment puis-je optimiser ce code?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub OptionButton4_Click()
    Select Case ActiveSheet.Name
        Case "Janv"
        [Janv!N1].Value = 2
        Case "Fév"
        [Fév!N1].Value = 2
        Case "Mars"
        [Mars!N1].Value = 2
        Case "Avril"
        [Avril!N1].Value = 2
        Case "Mai"
        [Mai!N1].Value = 2
        Case "Juin"
        [Juin!N1].Value = 2
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub OptionButton5_Click()
    Select Case ActiveSheet.Name
        Case "Janv"
        [Janv!N2].Value = 2
        Case "Fév"
        [Fév!N2].Value = 2
        Case "Mars"
        [Mars!N2].Value = 2
        Case "Avril"
        [Avril!N2].Value = 2
        Case "Mai"
        [Mai!N2].Value = 2
        Case "Juin"
        [Juin!N2].Value = 2
    End Select
End Sub
Merci.