Private Sub Cmd_Modifier_Click()
Dim Ln As Long
With Sheets("evt-muse")
Ln = ActiveCell.Row
.Cells(Ln, 3) = CDate(TxtDateOuverture.Value)
.Cells(Ln, 4) = CDate(TxtDateModification.Value)
.Cells(Ln, 9) = Text_Description
End With
MsgBox "La modification a été prise en compte."
End Sub