Sélectionner plusieurs feuilles pour impression

Bonjour,

Je cherche à automatiser une impression en sélectionnant par exemple toutes les feuilles ayant "essai" en A1 puis en lançant imprimer, feuilles sélectionnées.

J'ai une solution avec boucle et impression des feuilles une à une à la volée mais je n'ai pas trouvé la possibilité de générer

Sheets(Array("Feuil2", "Feuil3")).Select
automatiquement selon critère

l'exemple suivant me génère une erreur sur la dernière ligne

zone = ""
For Each Feuille In Sheets
If Feuille.Range("A1").Value = "essai" Then
If zone <> "" Then zone = zone & """, """
zone = zone & Feuille.Name
End If
Next Feuille
If zone = "" Then Exit Sub
Sheets(Array(zone)).Select

Merci de me lire et me répondre

Eric