Cumul codes et masquer onglet sous conditions

Bonjour à tous,

Etant novice en VBA, je sollicite votre aide.

Mon cas est le suivant :

Un classeur Excel ayant plusieurs onglet.

J'ai un code dans ma feuille 1 qui permet de cacher plusieurs lignes dans ma feuille 2 si la valeur de la cellule B29 est positive ou nulle.

A ce dernier, je voudrais ajouter un code qui dit que si, toujours en feuille 1 la B36 = OUI alors je veux voir la feuille 3, si = NON alors la feuille 3 doit être cachée.

Je n'arrive pas à trouver de formule qui fonctionne pour cacher ma feuille, et de plus, je n'arrive pas à cumuler les codes.

Pas très douée...

Et, dans mon premier code, j'aimerai pouvoir cacher plusieurs lignes qui ne se suivent pas, mais à moins de faire plusieurs lignes de code, ça ne marchait pas (avec virgule, point virgule ou autre).

Voici mon code (la deuxième partie ne fonctionne pas).

Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("B29")) Is Nothing Then
       With Sheets("feuil2")
            If Target = 0 Then .Rows("7:9").Hidden = True
            If Target = 0 Then .Rows("14").Hidden = True
            If Target = 0 Then .Rows("12").Hidden = True
            If Target = 0 Then .Rows("19:20").Hidden = True
            If Target > 0 Then .Rows("7:9").Hidden = False
            If Target > 0 Then .Rows("14").Hidden = False
            If Target > 0 Then .Rows("12").Hidden = False
            If Target > 0 Then .Rows("19:20").Hidden = False
          End With

             End If

             If Not Intersect(Target, Range("B36")) Is Nothing Then
       With Sheets("Feuil3")
            If Target = NON Then .Worksheets("feuil3").Visible = True
            If Target = OUI Then .Worksheets("feuil3").Visible = False
            End With
            End If
End sub

Si quelqu'un peut m'aider...

Merci d'avance !

Bonjour,

Essai ceci

Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("B29")) Is Nothing Then
       With Sheets("feuil1")
            If Target = 0 Then
            .Rows("7:9").Hidden = True
            .Rows("14").Hidden = True
            .Rows("12").Hidden = True
            .Rows("19:20").Hidden = True
            Else
            If Target > 0 Then
            .Rows("7:9").Hidden = False
            .Rows("14").Hidden = False
            .Rows("12").Hidden = False
            .Rows("19:20").Hidden = False
            End If
            End If
          End With

End If

If Not Intersect(Target, Range("B36")) Is Nothing Then
            If Target.Value = "non" Then
            Sheets("feuil3").Visible = True
            Else
            If Target.Value = "oui" Then
            Sheets("feuil3").Visible = False
            End If
            End If
End If
End Sub

Cordialement