XL 2010 Placer la colonne a côté de C

Sub MasquerAfficher()
Dim ncolonne&
   With ActiveSheet
      .Rows(1).EntireColumn.Hidden = False
      If CmB_Jour = "" Then Exit Sub
      ncolonne = Application.WorksheetFunction.Match(CLng(CDate(CmB_Jour)), .Rows(2), 0)
      If ncolonne > 4 Then .Range(.Cells(1, "d"), .Cells(1, ncolonne - 1)).EntireColumn.Hidden = True
   End With
End Sub

Private Sub CmB_Jour_Change()
    MasquerAfficher
    If CmB_Jour.ListIndex <> -1 Then
    ...
    ...
    ...
    ...
  
End Sub