Masquer des colonnes qui bug dans une boucle

peux-tu expliquer ce qui fait que cela marche parfois et parfois pas? que changes-tu entre les deux fois?
tu ne montres qu'une seule ligne de code. je ne peux faire de suggestion qu'à ce propos:
je te suggère donc de préciser de quelle feuille il s'agit, par exemple:

dim unefeuille as worksheet
set unefeuille  = 'ceci ou cela
unefeuille.Range("M:M,O:O,R:V,AA:AG,AK:AK").EntireColumn.Hidden = True

il est toujours dangereux de ne pas préciser exactement les objets, d'autant plus dangereux quand le code VBA utilise des

Select 

ou autre

Activate

, absolument à proscrire.

tu ne m'expliques ni comment utiliser ton fichier pour avoir le problème, ni ce que tu as changé et qui fait que cela ne fonctionne plus.
je maintiens ma suggestion: remplacer ta ligne par quelque-chose comme

Sheets("Données commerciales").Range("M:M,O:O,R:V,AA:AG,AK:AK").EntireColumn.Hidden = True

ou

Worksheets(I).Range("M:M,O:O,R:V,AA:AG,AK:AK").EntireColumn.Hidden = True

pour éviter d'avoir Range tout seul, sans préciser où.
je suggère aussi de simplifier ton code, par exemple remplacer ceci

 Sheets("Données commerciales").Select
    Range("C6:C11").Select
    Selection.Copy
    
    ActiveWorkbook.Worksheets(I).Select
    Range("C6").Select
    ActiveSheet.Paste

par cela

 Sheets("Données commerciales").Range("C6:C11").Copy Worksheets(I).Range("C6")

ton code est trop compliqué, je laisse d'autres t'assister.

bien vu!