Private Sub CommandButton2_Click()
Dim DerLig As Long
With Sheets("Données")
DerLig = .Range("E" & Rows.Count).End(xlUp).Row + 1
.Cells(DerLig, 5).Value = Application.Proper(TextBox1)
Call mefcConfections ' met en forme la saisie
Call ClasseTypeConfections 'Classe par ordre alphabétique les saisies
End With
'Vide le textbox
TextBox1 = ""
End Sub