Sub Masquer_Colonnes()
temps = Timer
Sheets("feuil1").Range("D:E,H:H,L:M,T:T,V:V").EntireColumn.Hidden = True
MsgBox Format(Timer - temps, "0.000000")
End Sub
Sub Afficher_Colonnes()
temps = Timer
Sheets("feuil1").Range("D:E,H:H,L:M,T:T,V:V").EntireColumn.Hidden = False
MsgBox Format(Timer - temps, "0.000000")
End Sub