VBA : Afficher/masquer ligne - modification code

Bonjour à tous,

J'ai le code ci-dessous en VBA pour afficher/masquer des lignes suivant la donnée d'une case.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug
If Target.Address = "$B$15" Then '<-- vérification que la modification se passe dans la cellule A4
    Select Case Target.Value
        Case "ESTIMATION DE SALAIRE": Rows("42:43").Hidden = True
        Case "DEMANDE D'ACOMPTE": Rows("42:43").Hidden = False
    End Select
End If
End Sub

Celui ci fonctionne parfaitement, cependant je voudrais masquer EN PLUS la ligne 19 lorsque "ESTIMATION DE SALAIRE" est sélectionné en case B15.

J'ai fais plusieurs test sans succès.

Auriez vous une piste s'il vous plait ?

Cordialement.

Christophe

Bonsoir,

J'ai pû effectuer ce que souhaitais comme résultat avec le code suivant, si ça peut servir a quelqu'un un jour on ne sait jamais.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B16").Value = "DEMANDE D'ACOMPTE" Then
    Rows("20:20").EntireRow.Hidden = False
    Rows("44:45").EntireRow.Hidden = False

Else
    Rows("20:20").EntireRow.Hidden = True
    Rows("44:45").EntireRow.Hidden = True
End If

End Sub

Cordialement.