Private Sub CommandButton1_Click() 'modifier
Dim i As Byte, L As Long, j As Integer
' Stop
Application.ScreenUpdating = False
L = Me.ComboBox1.ListIndex
'
For i = 1 To 16
For j = 2 To 17
Application.ThisWorkbook.Worksheets("Feuil1").Cells(ligne, i) = Me.Controls("TextBox" & j)
Next j
Next i
'
Call Remplir_Liste(ComboBox1.Text)
Call Remplir_Combobox
Application.ScreenUpdating = True
For i = 1 To 17
Me.Controls("Textbox" & i) = ""
Next i
End Sub