On Error GoTo ??

Bonjour à tous,

Voici une partie de ma macro. Le premier GoTo fonctionne bien. Si le
répertoire sur le réseau est momentanement indisponible, l'instruction passe
à "message:" sinon il passe par "suite:". Mon problème est qu'il bug pour le
2ème GoTo.
Pourquoi après l'instruction de "suite", si le fichier n'est pas trouvé sur
le répertoire P:\ en cours de maintenance, il bug en ne passant pas à
"suite2" pour terminer l'instruction ? Comprend pas.

'si le répertoire P:\ n'existe plus momentanement
On Error GoTo message:

ChDir "P:\EQUIPEMENT"
Workbooks.Open Filename:="P:\EQUIPEMENT\Enlevement.xls"

GoTo suite:

'si le répertoire P:\ n'existe plus momentanement
message:
MsgBox "Problème dans lors de l'envoi du fichier d'enlèvement. Soit le
répertoire est en cours de maintenance, soit le fichier a été supprimé. Merci
de faxer votre demande d'enlèvement qui va s'imprimer, le temps de régler ce
problème.", vbOKOnly + vbOKOnly + vbExclamation, "Problème d'envoi de la
demande d'enlèvement"
'imprime 1 copie à faxer manuellement
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=DefPrt,
Collate:=True

'continue l'instruction si pas de plantage P:\
suite:
'----- reaffectation de l'imprimante d'origine
Application.ActivePrinter = DefPrt

On Error GoTo suite2:
'Insertion de l'enlèvement dans la base de données commune
ChDir "P:\EQUIPEMENT"
Workbooks.Open Filename:="P:\EQUIPEMENT\base pickup.xls"

Suite2:
' Va à la page de garde
Sheets("pickup").Select
Range("A1").Select

End Sub