Private Sub ListBox1_Click()
j = ListBox1.Value
Flag = True
'MsgBox j '
Set cell = Sheets("liste").Range("A:C").Find(j)
TextBox1 = j ' MODIF > AJOUTE
TextBox2 = Format(cell.Offset(0, 1), "0# ## ## ## ##")
TextBox3 = cell.Offset(0, 2)
Flag = False
End Sub