Problème afficher /masquer ligne entière VBA

Bonjour à tous,

Après une matinée de recherche sur différents forums je sollicite l'aide de la communauté car je ne trouve pas de solution à mon problème.

Déjà je suis désolé mais je suis novice dans la manipulation d'excel et je bidouille plus que je ne comprends ce que je fait.

Dans mon classeur j'ai en "B1" une liste déroulante qui contient : "Pack pro; Prévoyance;Santé seule" .

Ainsi lorsque je sélectionne Santé seule je souhaite que seuls les éléments contenus dans la plage "B7:Q17" apparaissent, quand Pack pro est sélectionné je souhaite que la plage "B2:Q17" apparaissent et enfin Prévoyance seule je souhaite que seule la plage "B2:Q6" apparaisse.

J'ai essayé ceci : (à savoir que je ne suis pas allé plus loin car déjà là lorsque je sélectionne "Pack pro" excel fige.

Private Sub Worksheet()

Application.ScreenUpdating = False

Range("B2:Q6").EntireRow.Hidden = True

If Range("B1").Value = "Santé Seule" Then Rows("2").Hidden = False

If Range("B1").Value = "Pack pro" Then Rows("2").Hidden = True

End Sub

Si quelqu'un à une idée je suis preneur.

Amicalement,

Bonjour

Code à essayer

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
Range("B2:Q17").EntireRow.Hidden = False
Select Case Target
    Case Is = "Prévoyance": Rows("7:17").Hidden = True
    Case Is = "Santé seule": Rows("2:6").Hidden = True
End Select
End If
End Sub

Le code est à placer dans la feuille concernée

Si ok et terminé merci de cloturer le fil en cliquant sur le petit v en haut à droite

Cordialement

Bon et bien j'ai plus qu'à cloturer le sujet ! Merci beaucoup Dan ! Au top