bonjour a toutes et tous,

je cherche a créer une macro qui pour "déduire" le mois de l'année en fonction du numéro de semaine.
j'ai une partie de code que voici :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
'Dans ThisWorkbook
Private Sub Workbook_Open()
    Macro1
End Sub
 
'Dans module1
Sub Macro1()
 
Select Case Range("P3").Value
    Case Is >= 1, Is <= 5
        Range("P1").Text = "Janvier"
 
    Case Is >= 6, Is <= 9
        Range("P1").Text = "Février"
 
    Case Is >= 10, Is <= 13
        Range("P1").Text = "Mars"
 
    Case Is >= 14, Is <= 18
        Range("P1").Text = "Avril"
 
    Case Is >= 19, Is <= 22
        Range("P1").Text = "Mai"
 
    Case Is >= 23, Is <= 26
        Range("P1").Text = "Juin"
 
    Case Is >= 27, Is <= 32
        Range("P1").Text = "Juillet"
 
    Case Is >= 32, Is <= 35
        Range("P1").Text = "Aout"
 
    Case Is >= 36, Is <= 39
        Range("P1").Text = "Septembre"
 
    Case Is >= 40, Is <= 44
        Range("P1").Text = "Octobre"
 
    Case Is >= 45, Is <= 48
        Range("P1").Text = "Novembre"
 
    Case Is >= 49, Is <= 53
        Range("P1").Text = "Décembre"
 
    Case Else
        Range("P1").Text = "Erreur"
End Select
 
End Sub
assez basic me direz vous, c'est le seul moyen que j'ai trouvé.
mais lors de la compilation il me dis que j'ai une erreur. débutant dans les macro excel, je me demande si je m'y prend bien, et si je tape ma macro bien la ou elle dois etre.
pourriez vous m'aider a comprendre comment réaliser ce que je voudrais.

je voudrais, si possible, que ce soit une routine qui s'exécute pour toute les feuilles de mon classeur

merci par avance