bonjour Palemeilleur,
la date à récuperer correspond à Calendrier.value ou plus simplement à Calendrier
Private Sub Calendrier_Click()
Feuil3.Range('A' & Range('A65536').End(xlUp).Row + 1) = Calendrier
End Sub
cette macro incrémentera la colonne A de la feuille 3 à chaque clic sur le calendrier
cordialement