re bonjour
astuce
dans calendar1_click rajoute "unload me"
Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1, "ddd DD mmm YY")
Unload Me
End Sub
la date sera saisie et le calendrier disparait
se qui evite l'utilisation du bouton quitter que tu peux supprimer
bye
E et F