Private Sub ButtonCreatNom_Click() 'création nom
If TextBoxNom = "" Or TextBoxPrenom = "" Or TextBoxService = "" Then Exit Sub
With Worksheets("Base")
DernLig = .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row + 1
If .Cells(DernLig, 2) > "" And .Cells(DernLig - 1, 2) = "" Then Exit Sub
TextBoxNoOrdre = Application.WorksheetFunction.Max(.Range("A2:A" & DernLig)) + 1
.Cells(DernLig, 1) = CLng(TextBoxNoOrdre)
.Cells(DernLig, 2) = TextBoxNom
.Cells(DernLig, 3) = TextBoxPrenom
.Cells(DernLig, 4) = TextBoxService
End With
RemplirComboxBase
ComboBoxBase = TextBoxNom
TextBoxNom = "": TextBoxPrenom = "": TextBoxService = "": TextBoxNoOrdre = ""
End Sub