Sub Affichage()
Dim Sh As Worksheet, Ws As Worksheet
Set Sh = Sheets("Affichage")
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name <> Sh.Name Then
Ws.Columns.Hidden = False
Ws.Columns("K:O").Hidden = Sh.Range("$G$3") = FAUX
Ws.Columns("Q:Y").Hidden = Sh.Range("$G$4") = FAUX
Ws.Columns("W:AA").Hidden = Sh.Range("$G$5") = FAUX
Ws.Columns("AC:AG").Hidden = Sh.Range("$G$6") = FAUX
Ws.Columns("AI:AM").Hidden = Sh.Range("$G$7") = FAUX
Ws.Columns("AO:AS").Hidden = Sh.Range("$G$8") = FAUX
Ws.Columns("AU:AY").Hidden = Sh.Range("$G$9") = FAUX
Ws.Columns("BA:BE").Hidden = Sh.Range("$G$10") = FAUX
Ws.Columns("BG:BK").Hidden = Sh.Range("$G$11") = FAUX
Ws.Columns("BM:BQ").Hidden = Sh.Range("$G$12") = FAUX
Ws.Columns("BS:BW").Hidden = Sh.Range("$G$13") = FAUX
Ws.Columns("BY:CC").Hidden = Sh.Range("$G$14") = FAUX
Ws.Rows("115:166").Hidden = Sh.Range("$H$3") = FAUX
End If
Next Ws
End Sub