Private Sub Worksheet_Activate() 'à l'activation de l'onglet
Dim prem_date As Single 'déclare la variable
Dim nb_date_annee As Date 'déclare la variable nb_date_annee
Dim num_semaine As Integer 'déclare la variable num_semaine
nb_date_annee = DateValue("01/01/" & (Year(Date))) 'définit la variable nb_date_annee
prem_date = nb_date_annee 'définit la variable pre_date
num_semaine = Abs(Date - prem_date) / 7 'définit la variable num_semaine
MsgBox "Semaine " & num_semaine 'message affichant le numéro de la semaine
End Sub