Private Sub Copie_Click()
Dim Vindex
Vindex = ListBox1.ListIndex
[COLOR="Blue"]Sheets("ingredients").Cells(C.Row, 2) = Prix[/COLOR]
ActiveCell = ListBox1.List(Vindex)
ActiveCell.Offset(0, 3) = Prix
'ActiveCell.Offset(0, 3) = Label11
ActiveCell.Offset(1, 0).Select
'ici je remets le curseur en textbox1
TextBox1.SetFocus
End Sub