Calendrier xl

Bonjour,

J'ai créer un fichier xl dans lequel j'ai mis le code suivant ci-dessous afin qu'il affiche un calendrier quand je clique sur une cellule de la colonne B.
Au fur et a mesure de l'utilisation le calendrier s'est agrandi et prend maintenant tous l'ecran, que puis-je faire ?
(image en pièce jointe)


Private Sub Calendar1_Click()
'Met la date selectionnée dans la cellule active
ActiveCell.Value = Calendar1.Value

'Masque le calendrier
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row >= 2 Then
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top + ActiveCell.Height
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
Calendar1.Visible = False
End If
End Sub





Merci