Microsoft 365 Programmes VBA pour trier

Function LookInTable(Equipement As String) As String

    With Sheets("Formulaire")
        For Each TS In .ListObjects
            If TS.Name <> "TEquipements" Then
                Set trouve = TS.Range.Find(Equipement)
                If Not trouve Is Nothing Then
                    LookInTable = TS.Name
                    Exit Function
                End If
            End If
        Next TS
    End With
End Function

'**************************************************************
'Proccédure permettant d'activer le bouton d'ajout des sections
'**************************************************************
Private Sub txtCaractéristiques_Change()
    NomBouton = "Btn" & WorksheetFunction.Substitute(LookInTable(Me.cboEquipements), "Liste", "")
    Me.Controls(NomBouton).Enabled = True
'    If txtCaractéristiques <> "" Then
'        btnBoulangerie.Enabled = True
'        btnTraiteur.Enabled = True
'        btnCharcuterie.Enabled = True
'        btnPoissonnerie.Enabled = True       'Activer le bouton
'        btnBoucherie.Enabled = True
'        btnMeubles.Enabled = True
'        btnClimatisation.Enabled = True
'        btnElectricité.Enabled = True
'        btnRéception.Enabled = True
'
'    Else
'        btnBoulangerie.Enabled = False
'        btnTraiteur.Enabled = False
'        btnCharcuterie.Enabled = False
'        btnPoissonnerie.Enabled = False
'        btnBoucherie.Enabled = False          'Désactiver le bouton
'        btnMeubles.Enabled = False
'        btnClimatisation.Enabled = False
'        btnElectricité.Enabled = False
'        btnRéception.Enabled = False
'
'    End If
           
End Sub