Microsoft 365 Après un choix dans un ComboBox, charger les données dans des Labels

Public Function Recup(StrName$)
Dim Ok As Boolean
With VisuelAgent
        
       If StrName = Empty Then Exit Function 'On quitte si Variable Vide
 Ok = True
    For Lgn = 1 To UBound(Tbl_BDD, 1) 'Pour Chaque ligne du tableau
    
      If Tbl_BDD(Lgn, 7) = StrName Then 'si la Colonne 7 du tableau Contient le Nom
      'ci dessous
   If Ok = True Then StrDirection = Tbl_BDD(Lgn, 8): StrService = Tbl_BDD(Lgn, 9): StrCellule = Tbl_BDD(Lgn, 10): Ok = False ' On récupére les variables une fois
            
      StrCategorie = Tbl_BDD(Lgn, 2) 'La categorie
               Qte = Tbl_BDD(Lgn, 3) 'la Quenatité
        Select Case True ' on vavérifeir ce qui est Vrai
            
               Case StrCategorie Like "*Bureau*" 'La variable Catégorie contint le Mot "Bureau"
                 IndxFrm = 1 'on aura pour cible la Frame 1
                     Idx = IndxFrm * 10 'les labels auraont cette formae de Nom "LBl_10_xx"
             ID_Mobilier = ID_Mobilier + 1 'on increment l'index du Label 01 à 20
                      ID = ID_Mobilier
          With .Controls("Lbl_" & IndxFrm & "_" & Format(ID_Mobilier, "00")) 'avec le Label Ainsi définit
               .Caption = Tbl_BDD(Lgn, 3) 'On y affiche la valeur de la Colonne 3 de la Ligne correspondante
               .Visible = True 'on le rend visible
          End With
          With .Controls("LBl_" & Idx & "_" & Format(ID_Mobilier, "00"))
               .Caption = Tbl_BDD(Lgn, 4)
               .Visible = True
          End With            
               Case StrCategorie Like "Informatique*"
                IndxFrm = 2
                    Idx = IndxFrm * 10 'les labels auraont cette formae de Nom "LBl_20_x"
        ID_Informatique = ID_Informatique + 1
                     ID = ID_Informatique
          With .Controls("Lbl_" & IndxFrm & "_" & Format(ID_Informatique, "00"))
               .Caption = Tbl_BDD(Lgn, 3)
               .Visible = True
          End With
          With .Controls("LBl_" & Idx & "_" & Format(ID_Informatique, "00"))
               .Caption = Tbl_BDD(Lgn, 4)
               .Visible = True
          End With            
               Case StrCategorie Like "*Téléphonie*" 'les labels auraont cette formae de Nom "LBl_30_x"
                IndxFrm = 3
                    Idx = IndxFrm * 10
           ID_Telephone = ID_Telephone + 1
                     ID = ID_Telephone
           With .Controls("Lbl_" & IndxFrm & "_" & Format(ID_Telephone, "00"))
                .Caption = Tbl_BDD(Lgn, 3)
                .Visible = True
           End With
           With .Controls("LBl_" & Idx & "_" & Format(ID_Telephone, "00"))
                .Caption = Tbl_BDD(Lgn, 4)
                .Visible = True
           End With
        End Select
    'With VisuelAgent
      With .Controls("Frm_" & IndxFrm)
           .Height = 20 + (26.4 * ID)
      End With  
      End If
    Next
    'après la Boucle on affiche dans les Labels correspondants les valeurs des Variables récupérées
           .Lbl_Directions.Caption = StrDirection
           .Lbl_Services.Caption = StrService
           .Lbl_Cellule.Caption = StrCellule
End With
End Function