Bonjour
Avec 2 macros (Code dans Moduke1) associées chacune à un bouton
Sub Masque()
'On bloque le rafraichissement de l'écran
Application.ScreenUpdating = False
Dim depart As Long
'On cherche le numéro de la dernière colonne utilisée
depart = Cells(1, Columns.Count).End(xlToLeft).Column
'on parcours les autres colonnes et si la ligne 1 de la colonne
'est vide, on la masque
'Avec Excel 2003, j'ai 256 colonnes. Avec une autre version, il faut changer le 256 par le
'nombre de colonnes
For i = depart To 256
If Cells(1, i) = Empty Then Columns(i).Hidden = True
Next i
End Sub
Sub Affiche()
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub
Cordialement