Affichage des colonnes par PAS

Private Sub Worksheet_Change(ByVal Target As Range)
   With Me
      If Not Intersect(Target, Range("k2")) Is Nothing Then
         Application.ScreenUpdating = False
         .Columns("r:r").Resize(, 20 * 11).Hidden = True
         .Columns("r:r").Resize(, Range("k2") * 11).Hidden = False
      End If
   End With
End Sub

Option Explicit

Sub Essai()
  Dim k%: k = 28 + 11 * ([K2] - 1): Application.ScreenUpdating = 0
  Range(Columns(18), Columns(k)).Hidden = 0
End Sub

Option Explicit

Sub Essai()
  Dim k%: k = 28 + 11 * ([K2] - 1): Application.ScreenUpdating = 0
  Range(Columns(18), Columns(k)).Hidden = Not Columns(18).Hidden
End Sub