Par
ces motifs,
LA Ie COUR CIVILE
1. Rejette le recours.
2. Dit que la faillite de P. prend effet le 10 août 2004 à 9 heures.
3. Invite le greffe à verser à X. SA le montant de 990.30 francs consigné par le recourant, et à restituer à ce dernier les 2'000 francs qu'il a en outre consignés.
4. Met à la charge du recourant les frais judiciaires qu'il a avancés par 550 francs.
Neuchâtel, le 9 août 2004
AU NOM DE LA Ie COUR CIVILE
Le greffier L'un des juges