Macro pour affecter un calendrier.

Bonjour,

Je souhaiterai créer une macro me permettant d'incorporer le calendrier suivant à ma colonne K et lui affecter la macro suivante, afin d'éviter à chaque fois d'être obligé d'aller le selectionner et affecter le code. Pouvez-vous m'aider ?

le code que je voudrais intégrer automatiquement à mon calendrier à chaque fois est le suivant :
Private Sub Calendar1_Click()

ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

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

Private Sub Worksheet_BeforeDoubleClick(ByVal zone As Range, Cancel As Boolean)

Dim ws As Worksheet
Set ws = ActiveSheet
macel = zone.Address
Rdv macel, ws
End Sub

https://www.cjoint.com/?iBh3UVhqu0

Merci d'avance.

Clem

Configuration: Windows 2000
Internet Explorer 6.0