Problème de selection de colonnes dans boucle for

Bonjour,

Vu votre précieuse aide, je reviens vers vous pour un nouveau détail, mais qui m'embête beaucoup.

For i = 1 To 10
k = 3 * (i + 1)
l = 11
Range("R" & k) = 0
S = Application.WorksheetFunction.CountA(Range("B" & k & ":P" & k))
Range("R" & k) = S
   For j = 2 To 16
   
        If Sheets("Chapitres").Cells(k, j) <> "" Then
        Sheets("chapitre " & i).Cells(7, l) = Sheets("Chapitres").Cells(k, j).Value
        l = l + 1
        
     End If
      Next j
      
<code>Sheets("chapitre " & i).Range(Columns(S + 1), Columns(50)).Hidden = True
Sheets("chapitre " & i).Range(Columns(1), Columns(S)).Hidden = False

Next i</code>

Dans ce code, je calcule S = nombre de savoirs d'un chapitre.
Je voudrais ensuite mettre un savoir par colonne et cacher les colonnes ne correspondant pas à un savoir (rendre visible seulement les S premières colonnes).
Mais il n'aime pas mon

Range(Columns(),Columns) ni Range(Cells(),Cells())

Pourriez-vous m'éclairer, s'il vous plait ?
Merci d'avance de votre aide.