Masquer automatiquement des lignes excel

Oui un peu;):
voici celle que j'ai mis en place pour faire un essais:


Sub VBA()
If Range("d4") = "1" Then
Rows("9:88").Select
Selection.EntireRow.Hidden = True
End If
If Range("d4") = "2" Then
Rows("11:88").Select
Selection.EntireRow.Hidden = True
End If
If Range("d4") = "3" Then
Rows("13:88").Select
Selection.EntireRow.Hidden = True
End If
If Range("d4") = "4" Then
Rows("15:88").Select
Selection.EntireRow.Hidden = True
End If

If Range("d4") = "0" Then
Rows("9:88").Select
Selection.EntireRow.Hidden = False
End If
End Sub



S'agissant d'un test, je n'ai fais que jusqu'à 4.
Mon problème dans l'immédiat (ou la seule solution que j'ai trouvée)
C'est si je met 1 en D4 toute mes lignes se masquent bien...

seulement si je met 4 derrière rien ne se passe...

Il faut que je réinitialise en mettant 0

et ensuite mettre 4 pour que mes lignes se masquent bien...

Ce n'est pas très grave mais j'aimerais savoir si il est possible de faire autrement?

Merci à vous

C'est bon j'ai trouvé tout seul en faite ;))
C'est logique:

il suffis de sélectionner les cellules à remettre en place et de programmer leur retour ;))

Pour ceux qui serait dans le même cas que moi voici la réponse ;)

Sub VBA()
If Range("d4") = "1" Then
Rows("9:88").Select
Selection.EntireRow.Hidden = True
End If

If Range("d4") = "2" Then
Rows("11:88").Select
Selection.EntireRow.Hidden = True
Rows("9:10").Select
Selection.EntireRow.Hidden = False
End If

If Range("d4") = "3" Then
Rows("13:88").Select
Selection.EntireRow.Hidden = True
Rows("9:12").Select
Selection.EntireRow.Hidden = False
End If
If Range("d4") = "4" Then
Rows("15:88").Select
Selection.EntireRow.Hidden = True
Rows("9:14").Select
Selection.EntireRow.Hidden = False
End If

Allez merci et bonne soirée.

cordialement