Private Sub Valide_part_Click()
If TextBox1 = "" Then Exit Sub
Lig = Application.Match(Val(TextBox1), Feuil4.[GB1:GB5000], 0)
If Not IsNumeric(Lig) Then Lig = Feuil4.[GB5000].End(3).Row + 1
Feuil4.Cells(Lig, 44) = Equipe_1
equipe = Equipe_1
For k = 1 To 12
Feuil4.Cells(Lig, k + 183) = Controls("TextBox" & k).Value
Next
ListView1.ListItems.Clear
UserForm_Initialize
End Sub