VBA lignes = 0 à masquées

Bonjour,

Je souhaiterais modifier la formule VBA qui concernait au départ une liste déroulante par une liste déroulante d'un contrôle de formulaire, voir en fichier joint.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Application.ScreenUpdating = False
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
Range("B4:B9").EntireRow.Hidden = False
For Each Cel In Range("B4:B9")
If Cel.Value <> "" And Cel.Value = 0 Then
Cel.EntireRow.Hidden = True
End If
Next
End If
End Sub

Merci infiniment de votre aide,

Cordialement.