Private Sub daterecep_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
daterecep.Value = Calendrier.Dt
End Sub
Private Sub dateenvoiechiffrage_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
dateenvoiechiffrage.Value = Calendrier.Dt
End Sub