Bonjour jonthonGj3, James007, le forum,
Une proposition, en supposant que "Lundi" se situe sur la ligne 1:
Pour masquer:
Sub masqueLesColonnes()
Dim d As Integer, dercol As Integer
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For d = 1 To dercol
ActiveSheet.Columns(d).EntireColumn.Hidden = Cells(1, d).Value <> "Lundi" 'masque les colonnes ne contenant pas Lundi
Next d
End Sub
Pour tout afficher:
Sub afficheLesColonnes()
Dim d As Integer, dercol As Integer
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For d = 1 To dercol
ActiveSheet.Columns(d).EntireColumn.Hidden = False 'affiche toutes les colonnes
Next d
End Sub
Cordialement,