Macro supprimer sous excel

Bonjour,

J'ai un tableau genre calendrier ou en colonnes D j'ai les jours.
J'ai crée une macro pour supprimer toutes les lignes ou en colonne D apparait "samedi".
Jusqu'ici tout va bien mais j'aimerais aussi supprimer les lignes ou apparait "dimanche"..
Une idée ?
voici ma macro merci :

Sub Macro1()
Dim I As Long
Dim Plage As Range
Set Plage = Range("D5:D" & Range("D5").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value = "samedi" Then
Plage.Cells(I).EntireRow.Delete
End If
Next

End Sub