On Error Goto ERR_Msg 10 commande1 20 commande2 30 commandeN ... Exit Function|Sub ' à ne pas oublier ERR_Msg: Select Case Erl Case 10: msgbox("erreur dans commande1") Case 20: msgbox("erreur dans commande2") Case 30: msgbox("erreur dans commandeN") ... End Select Resume Next