Private Sub D1_Click()
Unload Me
Liberer_Feuille
If Usf_03_Calendar.Caption = "Date de livraison :" Then
Range("C60") = D1.ControlTipText
ElseIf Usf_03_Calendar.Caption = "Date de début :" Then
Range("C59") = D1.ControlTipText
Usf_03_Calendar.Show
ElseIf Usf_03_Calendar.Caption = "Date de fin :" Then
Range("C61") = D1.ControlTipText
End If
Proteger_Feuille
End Sub