Bonjour Titoine, le fil,
bienvenue sur le site XLD ! :)
essaye ceci (un code VBA pour chacun des 3 boutons) :
Sub SREXP()
Dim chn$: chn = "C:F, S:V, AI:AL, AY:BB, BO:BR, CE:CH"
With Worksheets("Expédition")
.Range(chn).Columns.Hidden = Not .Columns("C").Hidden
End With
End Sub...