Private Sub CommandButton1_Click() 'modifier
Dim i As Byte, L As Long
' Stop
Application.ScreenUpdating = False
L = Me.ComboBox1.ListIndex
' L = Me.ListView1.SelectedItem.Index
' Me.TextBox1 = Cells(L + 3, 1)
For i = 1 To 17
Cells(L + 3, i) = Me.Controls("Textbox" & i)
Next i
' Me.ListView1.ListItems(L).Text = Me.TextBox1
'Range(Me.ListView1.ListItems(L).Key) = Me.ListView1.ListItems(L).Text
Call Remplir_Liste(ComboBox1.Text)
Application.ScreenUpdating = True
End Sub