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)
UserForm1.Label23.Caption = r.Value
Set r = r(2).Resize(Application.CountA(r.EntireColumn) - 1)
With LB.Parent.Parent
.ListBox1.List = r.Value
.ListBox1.Visible = True
.Frame1.Visible = False
UserForm1.Label22.Caption = "Nombre de Film(s) : " & UserForm1.ListBox1.ListCount & " dans cette Catégorie.....,"
End With
End Sub