exemple sur les 40 premieres colonnes : A à AO
1- masquage
Columns("A:AO").Select
Selection.EntireColumn.Hidden = True
2-réaffichage de 3 colonnes non contigües
for I = 1 to 3
Message = "Entrez une colonne à afficher"
Title = "Démonstration de InputBox" ' Définit le titre.
Defaut = "1" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
macolonne = InputBox(Message, Title, Defaut)
Columns(macolonne & ":" & macolonne).Select
Selection.EntireColumn.Hidden = False
Next
Catherine