Bonsoir Kathleen, bonsoir le forum,
Peut-être comme ça (code à adapter) :
Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim TS As ListObject 'déclare la variable TS (Tableau Structuré)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Set OS = Worksheets("Feuil1") 'définit l'onglet source (à adapter à ton cas)
Set TS = OS.ListObjects("Table5") 'définit le tableau structuré TS (à adapter à ton cas)
TV = TS.DataBodyRange 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
'si la colonne 1 n'est pas vide et si la colonne 2 vaut "Non", masque l'onglet de la ligne
If TV(I, 1) <> "" And TV(I, 2) = "Non" Then Worksheets(TV(I, 1)).Visible = False
Next I
End Sub