Masquer colonne sur plusieur onglet

Bonsoir!!!

mon code bloc si plus de 17 Sheets("***************").EntireColumn.Hidden = True

existe t'il une solution

Sub Masquer_Colonnes()

Sheets("Nature Revêt").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Trous et Fentes").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Largeur Chemin").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Dévers et Pentes").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Ressaut").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Eclairage Public").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Traversée Piétonne").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Stationnement").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Circulations Verticales").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("Signalétique").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU propreté").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU repos").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU déco arbo").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU éclairage public").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU de protection").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU lié au transport public").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU com info").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU techniques").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

Sheets("MU feux rouges").Range("K:K,L:L,M:M,P:P,Q:Q,R:R").EntireColumn.Hidden = True

End Sub

merci d'avance

Salut le forum

Quel est le code d'erreur retourner par la macro ?

Déjà tu peux simplifier avec un ARRAY

Dim Sh
  For Each Sh In Array("Feuil2", "Feuil3")
    Sheets(Sh).Range("K:M,P:R").EntireColumn.Hidden = True
  Next Sh

Mytå

Merci pour ta réponse ton code fonctionne très bien

Re bonjour

sur le même classeur j'aimerai masquer/afficher les lignes en fonction de la valeur des cellule de la colonne A, qui est 1 ou vide. Action sur un ou deux bouton sur l'onglet Menu . la longueur des tableaux varie mais le maxi est 99 lignes