Private Sub Usf_Valider_Click()
'ceci pour eviter les pages accueil et note 1
If ActiveSheet.Name = "ACCUEIL" Or ActiveSheet.Name = "NOTE 1" Then Exit Sub
With ActiveSheet
lig = ActiveCell.Row
IsDate (Usf_textbox_DU.Value & Usf_textbox_AU.Value)
.Cells(lig, 66).Value = CDate(Usf_textbox_DU.Value)
.Cells(lig, 67).Value = CDate(Usf_textbox_AU.Value)
Unload Me
End With
End Sub