Ne pas imprimer une feuille si la cellule x vide

Bonjour a tous le monde

sur la pièce joint un classeur contient une feuille avec deux page

comment faire pour

imprimer la page 1 seulement si la cellule A7 et la cellule E7 son rempli

imprimer la page 2 seulement si la cellule A34et la cellule E34 son rempli

OU

imprimer les deux page seulement si la cellule A7 et la cellule E7 + la cellule A34et la cellule E34 son rempli

merci pour le groupe

Bonjour,

à tester,

Sub test()
If Range("A7") <> "" And Range("E7") <> "" Then x = 1 Else x = 0
If Range("A34") <> "" And Range("E34") <> "" Then y = 1 Else y = 0

t = x & y

Select Case t
    Case "00": Exit Sub
    Case "10": a = 1: b = 1
    Case "01": a = 2: b = 2
    Case "11": a = 1: b = 2
End Select

ActiveSheet.PrintOut a, b
End Sub