Griser (verrouiller) certaines colonnes avec bouton

Bonjour,

Voila mon besoin : Je souhaite à l'aide d'un bouton pouvoir griser (désactiver) certaines colonnes. Lorsque je clique à nouveau sur le bouton toutes les colonnes sont de nouveau accessible. Sachant que mon programme utilise le bout de code suivant pour automatiser le passage d'une cellule à une autre ( sur une même ligne)

Les colonnes que je souhaite désactiver sont les suivantes : E, H, K, M, P, S.

Public Sub Position()
'
Dim irow%, iCol%

ActiveSheet.Unprotect

Application.EnableEvents = False
'
irow = Range("A" & Rows.Count).End(xlUp).Row
iCol = Cells(irow, Columns.Count).End(xlToLeft).Column
'
Cells(IIf(Cells(irow, 22) = "", irow, irow + 1), IIf(Cells(irow, 22) = "", iCol + 1, 1)).Select

'If Selection.Column = 19 Then Call Acceptation(irow)

Application.EnableEvents = True

Selection.Locked = True

ActiveSheet.Unprotect
'
End Sub

Merci d'avance

Bonjour Papi27190,

Voici une piste

Public Sub Hide()
Dim rng As Range

    Set rng = Application.Union(Columns(5), Columns(8), Columns(11), Columns(16), Columns(19))
    rng.EntireColumn.Hidden = True
End Sub

Bonjour et merci de ton aide

Pour l'aspect visuel ce bout de code est impeccable mais concernant l'aspect fonctionnel mon programme parcours toujours toutes les cellules d'une mêmes lignes l'une après l'autres malgré le fait que certaines colonnes soit cachées.

Je cherche donc une fonction ou un moyen d'adapter le bout de code permettant de parcourir une à une les cellules.

Merci d'avance