Option Explicit
Sub Tout(control As IRibbonControl)
Columns.EntireColumn.Hidden = False
Application.Goto [A1], True
End Sub
Sub CacheMontre(control As IRibbonControl, pressed As Boolean)
If pressed = True Then
Range("C:C,G:G,K:K,O:O,S:S,W:W,AA:AA,AE:AE,AI:AI,AM:AM,AQ:AQ,AU:AU").EntireColumn.Hidden = True
Range("D:D,H:H,L:L,P:P,T:T,X:X,AB:AB,AF:AF,AJ:AJ,AN:AN,AR:AR,AV:AV").EntireColumn.Hidden = False
Else
Range("D:D,H:H,L:L,P:P,T:T,X:X,AB:AB,AF:AF,AJ:AJ,AN:AN,AR:AR,AV:AV").EntireColumn.Hidden = True
Range("C:C,G:G,K:K,O:O,S:S,W:W,AA:AA,AE:AE,AI:AI,AM:AM,AQ:AQ,AU:AU").EntireColumn.Hidden = False
End If
Application.Goto [A1], True
End Sub