Private Sub masqueBCD_Click()
Range("B:D, L:IV").EntireColumn.Hidden = True ' masque colonne
Range("A1").Select 'selectionne la cellule A1 pour l'affichage
End Sub
Private Sub tout_Click()
Range("A:IV").EntireColumn.Hidden = False
Range("A1").Select
End Sub
Private Sub Affichage1_Click()
Range("A:IV").EntireColumn.Hidden = False
Range("C:D,I:J, L:IV").EntireColumn.Hidden = True
Range("A1").Select
End Sub