Private Sub CommandButton1_Click()
Dat = CDate(TextBox2)
maplage = Format(Dat, "mmmmyyyy")
With Sheets(maplage)
fin = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Select
.Cells(fin, 1) = TextBox1 * 1: TextBox1 = ""
.Cells(fin, 2) = ComboBox2: ComboBox2 = ""
.Cells(fin, 3) = ComboBox1: ComboBox1 = ""
End With
End Sub