Masquer des ligne en fonction d'un autre cellule

Bonjour,

Je voudrais masquer des lignes d'une feuille (Bon de Pliage1) de A5 a A8 en condition que dans une autre feuille Calcul il y est ecrie "7" en E4

j'ai trouver cette formule mais je ne suis pas sur de l'adaptation:

Sub Masquer_lignes()
Dim ligne As Integer

For ligne = 1 To 100
If Cells(ligne, 1) = "Livré" Then
Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

End Sub


donc en gros il faudrait que j’écrive:

Sub Masquer_lignes()
Dim ligne As Integer

For ligne = 1 To 100
If Cells('Calcul'!E4) = "7" Then
Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
Next

End Sub

et après ?

De plus je doit répéter l’opération 4 foi sur Bon de pliage1 ( donc A5aA8 - A9aA12 -A13aA16-A17aA20) selon Calcul E4-E5-E6-E7 et de suivent sur Bon de Pliage2 (4 foi identique) selon E8-E9-E10-E11 et encore sur 2 autre feuiller Bon de pliage3 et 4.
Merci d'avance