Appliquer une macro à tout le classeur

Bonjour,

J'ai une macro qui me permet de mettre une date dans une cellule via un calendrier (plus pratique qu'une liste)
Ma question, comment appliquer cette macro à tout le classeur qui est composé de 12 feuilles identiques (12 mois)

Voici la macro (qui n'est pas de moi, merci à son auteur) :

Sub Calendar1_Click()
' Met la date sélectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value
' Masque le calendrier
Calendar1.Visible = False
End Sub

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row >= 3 And Target.Row <= 24 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
Calendar1.Visible = True
' Place le calendrier à côté de la cellule
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False

If Target.Column = 8 And Target.Row >= 3 And Target.Row <= 24 Then
' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
' on affiche le calendrier
Calendar1.Visible = True
' Place le calendrier à côté de la cellule
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
' Sinon, on masque le calendrier
Calendar1.Visible = False
End If
End If
End Sub

Merci à toutes les bonnes ames pour leur aide.