affiché une date par un calendrier

bonjour
j'ai crée un bouton qui appelle un calendrier par userform
mon souci est que je voudrais que si je clique sur une date du calendrier elle s'affiche en celulle w2 de la feuille "reception"
je vous les codes utilisés

pour le bouton qui appelle l'userform:

Sub Bouton1_QuandClic()
Load UserForm1
UserForm1.Show
Unload UserForm1
End Sub

pour le code de l'userform :

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub

Private Sub UserForm_Initialize()
With UserForm1
.Left = ActiveCell.Offset(0, 1).Left + 25
.Top = ActiveCell.Offset(0, 1).Top + 100
End With
End Sub

auriez vous une idée
merci julie