Private Sub ComboBox1_Change()
Dim Tablo, k As Long
Tablo = Sheets("Données").Range("A2:B" & Sheets("Données").Range("A65536").End(xlUp).Row)
For k = 1 To UBound(Tablo)
If Tablo(k, 2) = ComboBox1 Then TextBox1 = TextBox1 & Tablo(k, 1) & "; "
Next
TextBox1 = Left(TextBox1, Len(TextBox1) - 2)
End Sub