Option Explicit
Public WithEvents LB As MSForms.Label
Private Sub LB_Click()
Dim r As Range
Set r = Feuil2.Rows(1).Find(LB, , xlValues, xlWhole)
If Application.CountA(r.EntireColumn) = 1 Then MsgBox "pas de film...": Exit Sub
Set r = r(2).Resize(Application.CountA(r.EntireColumn) - 1)
With LB.Parent.Parent
.ListBox1.List = r.Value
.ListBox1.Visible = True
.Frame1.Visible = False
End With
End Sub