Masquer colonnes des samedi et dimanche

Sub Masquer_wkd()
Dim cel As Range
        With Sheets("soldes")
            For Each cel In .Range(.Cells(6, 9), .Cells(6, 256).End(xlToLeft))
                If IsEmpty(cel) = False And IsDate(cel) = True Then
                    If Weekday(cel) = 7 Or Weekday(cel) = 1 Then .Activate: .Cells(1, cel.Column).EntireColumn.Hidden = True
                End If
            Next cel
        End With
End Sub

Option Explicit
Sub Samedis_et_dimanches_colonnes_masquer()
    Dim c As Range
    If ActiveSheet.Name <> "soldes" Then Exit Sub
    For Each c In Rows("6").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
        If IsDate(c) Then If Weekday(c) = 7 Or Weekday(c) = 1 Then c.EntireColumn.Hidden = True
    Next
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target <> "Solde Veille" Then Exit Sub
  Dim R As Range
  For Each R In [I6:O6]
    If IsDate(R) Then R.EntireColumn.Hidden = (Weekday(R) = 7 Or Weekday(R) = 1)
  Next
  Cancel = 1
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target = "Solde Veille" Then Cancel = 1: Columns("I:O").Hidden = 0
End Sub