AFFICHAGE AUTOMATIQUE DES COLONNE

[Panda Tsoa]

Bonjour tout le monde,
Je sollicite votre aide. Je sais pas si ma demande est faisable mais j'ai détaillé dans le fichier dans le fichier ci-joint mon besoin.
Merci pour votre assistance et espérant votre retour,
Meilleures salutations

 

[Johan]

Salut Panda,

J'ai un début de solution, mais qui ne marche que si tu défusionnes tes colonnes...

Sub HideColumns()

Dim numEntite As String

numEntite = Range("B1").Value

    For Each cell In ActiveSheet.Range("D4:BR4")
        If cell.Value <> numEntite Then
            Columns(cell.Column).Select
            Selection.EntireColumn.Hidden = True
        End If
    Next cell

End Sub