Private Sub Cht_Click()
Dim i As Byte
Dim datalist As Collection
Dim x As Integer
Set datalist = New Collection
TableauVar = Sheets('Feuil2').Range('c1:E' & MaLigne)
Me.Trx.Clear
On Error Resume Next
For x = LBound(TableauVar) To UBound(TableauVar)
If TableauVar(x, 1) = Me.Cht.Value Then
datalist.Add TableauVar(x, 2), TableauVar(x, 2)
End If
Next
For i = 1 To datalist.Count
Me.Trx.AddItem datalist(i)
Next i
End Sub