VBA - Macro - Afficher lignes sous condition

Bonjour,

N'étant pas encore habituer à réaliser des saisies de macros sur Excel, je ne sais pas comment améliorer celle que j'utilise.

Voilà, j'ai un tableau comprenant de nombreuse formules mais toutes les lignes ne sont pas utiles en même temps.
Afin de les dissocier, j'ai inséré une colonne ou se trouve les différents tests logiques afin de dire si la ligne est à afficher ou non. Si elle est à afficher, il apparaît "Oui", sinon "Non".

A partir de ceci, j'utilise une macro une macro qui cache toute les lignes dont la cellule correspondante affiche "Non"
Le problème est que lorsque je fais passer les cellules à "Oui", les lignes qui étaient cachées ne s'affichent pas toutes seules. Je souhaiterais donc améliorer la macro ou la modifier afin de le permettre, mais mes tentatives sont pour l'instant des échecs. Un petit coup de main ? :)

Voici la Macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim DL As Long, i As Long

DL = Cells(Application.Rows.Count, 4).End(xlUp).Row

For i = 1 To DL

If Range("D" & i) = "Non" Then 'Si la cellule B de la ligne i est égale à "Non" alors...

Rows(i).Hidden = True

End If

Next i

End Sub