Private Sub CommandButton1_Click()
Lign = Sheets("Base").Range("A50000").End(xlUp).Row + 1
Sheets("Base").Cells(Lign, 1).Value = lab_cpt
Sheets("Base").Cells(Lign, 2).Value = TextBox1.Text
Sheets("Base").Cells(Lign, 3).Value = TextBox2.Text
Sheets("Base").Cells(Lign, 4).Value = TextBox3.Text
Sheets("Base").Cells(Lign, 5).Value = TextBox4.Text
Sheets("Base").Cells(Lign, 6).Value = TextBox5.Text
Unload Me
End Sub