Private Sub CommandButton3_Click()
derligne = Sheets("BDV").Range("A65536").End(xlUp).Row + 1
For i = 1 To 6
Cells(derligne, i) = Me("TextBox" & i)
Next i
ListView1.ListItems.Clear
Call Tri_BDV
'UserForm_initialize
Call Remplir_Combobox
Call Remplir_Liste("TOUS")
End Sub