Masquer des lignes avec un combobox

bonjour je cherche a masquer des lignes par rapport a un combobox

je vous transmet un fichier pour comprendre

merci pour vos reponse

Bonjour,

A mettre dans un module standard (enregistrer le classeur en .xls ou .xlsm) et affecter la macro "Cacher" au contrôle Formulaire "Zone combinée 1" (clic droit-->"Affecter une macro..." et choisir "Cacher") :

Sub Cacher()

    Dim Plage As Range

    With Worksheets("Feuil1")

        'défini la plage sur la colonne A de la feuille "Feuil1" à partir de A2
        Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))

        'supprime un éventuel filtre
        Plage.AutoFilter

        'effectue le filtrage
        With .Shapes("Zone combinée 1").ControlFormat

            Plage.AutoFilter 1, .List(.ListIndex)

        End With

    End With

End Sub

BONJOUR,merci pour ta réponse cela fonctionne a merveille

j'aurai une autre question comment remettre toute les lignes selon une valeur de la zone combiné "all unité"

merci pour vos réponses

ps :je vous transmet le vrai fichier

Teste avec ceci. Pour le test j'ai mis "Tout afficher", adapte :

Sub Cacher()

    Dim Plage As Range

    With Worksheets("Feuil1")

        'défini la plage sur la colonne A de la feuille "Feuil1" à partir de A2
       Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))

        'supprime un éventuel filtre
       Plage.AutoFilter

        'effectue le filtrage
       With .Shapes("Zone combinée 1").ControlFormat

            If .List(.ListIndex) <> "Tout afficher" Then '<-- ici adapter le texte pour tout afficher

                Plage.AutoFilter 1, .List(.ListIndex)

            End If

        End With

    End With

End Sub