Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
Dim Mois As Byte, tmp(21) As Variant
Mois = Month(DTPicker1)
With Sheets(Mois + 1)
DerLig = .Range("A65000").End(xlUp).Row + 1
tmp(0) = DTPicker1
tmp(1) = ComboBox1
tmp(2) = TextBox3
tmp(3) = TextBox4
tmp(4) = TextBox1
tmp(5) = .Cells(DerLig, 6).FormulaR1C1 ' Nécessaire pour ne pas effacer le contenu de cette cellule.
tmp(6) = ComboBox2
tmp(7) = ComboBox3
tmp(8) = ComboBox5
tmp(9) = TextBox2
tmp(10) = ComboBox4
tmp(11) = ComboBox6
tmp(12) = ComboBox7
tmp(13) = ComboBox8
tmp(14) = ComboBox9
tmp(15) = ComboBox10
tmp(16) = ComboBox11
tmp(17) = ComboBox12
tmp(18) = ComboBox13
tmp(19) = ComboBox14
tmp(20) = ComboBox15
.Range(.Cells(DerLig, 1), .Cells(DerLig, 1).Offset(0, 20)).Value = tmp
End With
' On décharge le formulaire
Unload Me
End Sub