Afficher la valeur d'un label au click vers un autre label

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

Private Sub LB_Click()
    Dim r As Range
    Set r = Feuil2.Rows(1).Find(LB, , xlValues, xlWhole)
    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
    UserForm1.Label23 = LB '<--- ligne ajoutée
End Sub