Private Sub bt_rec_Click()
Dim lig As Long
With Sheets("BDD")
lig = .Range("a2").End(xlDown).Row + 1
.Range("a" & lig).Value = Me.Txt_date.Text
.Range("b" & lig).Value = Me.CbxCptClt.Text 'Ecrit en A... la valeur de Textbox1
.Range("c" & lig).Value = Me.TxtBxNom.Text 'etc....
.Range("d" & lig).Value = Me.TxtBxVille.Text 'etc.....
.Range("e" & lig).Value = Me.TxtBxCP.Text
.Range("f" & lig).Value = Me.TxtBxAgence.Text
.Range("g" & lig).Value = Me.CBoxLiaisonTlm.Text
.Range("h" & lig).Value = Me.ComboBox5.Text
.Range("i" & lig).Value = Me.ComboBox4.Text
.Range("j" & lig).Value = Me.TextBox1.Text
.Range("k" & lig).Value = Me.ComboBox6.Text
.Range("l" & lig).Value = Me.ComboBox2.Text
.Range("m" & lig).Value = Me.TextBox2.Text
.Range("n" & lig).Value = Me.Systeme_Int.Text
.Range("o" & lig).Value = Me.ComboBox8.Text
.Range("p" & lig).Value = Me.TextBox3.Text
.Range("q" & lig).Value = Me.cbxvideo.Text
.Range("r" & lig).Value = Me.Video_oui_Non.Text
.Range("s" & lig).Value = Me.ComboBox9.Text
.Range("t" & lig).Value = Me.ComboBox13.Text
.Range("u" & lig).Value = Me.Acces_oui_non.Text
.Range("v" & lig).Value = Me.ComboBox7.Text
.Range("w" & lig).Value = Me.ComboBox11.Text
.Range("x" & lig).Value = Me.ComboBox16.Text
.Range("y" & lig).Value = Me.cbx_type_inst.Text
.Range("z" & lig).Value = Me.cbximplant.Text
.Range("aa" & lig).Value = Me.tbx_tx_implant.Text
End With
End Sub