Afficher les colonnes sélectionné par x

Bonsoir à tous

Je cherche Pour mon probleme

Je cherche à afficher que les colonnes qui j'ai besoin par mettre x au-dessus de la colonne .

Dans l'exemple J'aimerai afficher les colonnes suivantes:

Nom, Prénom, Categorie, Adresse par exepmle

Je joins le fichier c'est plus facile à comprendre.

Je remercie d'avance, tous ceux qui pourraient m'apporter de l'aide.

Bien cordialement à tous!!!

Bonjour,

Essayez la procédure suivante à mettre dans un module et a commander par un bouton par exemple. Les x à mettre en ligne 10

Sub masquer()
Dim cel As Range
Application.ScreenUpdating = False
For Each cel In Range("A10:P10")
    If cel.Value = "x" Then cel.EntireColumn.Hidden = True
Next cel
Application.ScreenUpdating = True
End Sub

Bonsoir à tous et toutes

Bonsoir robjam

Merci de vous occuper de mon soucis

La solution que je souhaite est intégré dans le bouton Filtré (Filtre et affiché les colonnes Sélectionnées et cache le reste).

Merci et salutations.

Cordialement.

Bonjour,

J'ai adapté à votre souhait. A tester

Pour revenir à l'état initial non filtré, il suffit de retirer les X et de recliquer le bouton Filtré

Bonjour

Je tiens à m'excuser de cette réponse tardive

je vais tester et adapte ton solution sur mon fichier

Avec mes remerciements

Cordialement