Il faut l'adapter
Dercol = Cells([color=#FF0000]2[/color], Columns.Count).End(xlToLeft).Column
Le 2 correspond à la ligne 2 (tes titres)
If Cells([color=#FF0000]1[/color], i) = False Then Columns(i).Hidden = True
Le 1 correspond à la ligne 1 (les formules)
Amicalement
Nad