[Access vba]erreur 2467....

Bonjour, j'ai une erreur 2467 l'expression entré fait référence à un objet fermé ou supprimer
sur ce code

Dim Value As Integer
If Liste0.Column(0) = 1 Then DoCmd.RunMacro "M_ouvrir Tintervention"
If Liste0.Column(0) = 2 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 3 Then DoCmd.RunMacro "M_ouvrir_recherche_total"
If Liste0.Column(0) = 4 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 5 Then DoCmd.RunMacro "M_A suivre etat"
If Liste0.Column(0) = 6 Then DoCmd.RunMacro "M_ouvrir a suivre par ligne"
If Liste0.Column(0) = 7 Then DoCmd.RunMacro "M_ouvrir a suivre pointage"
If Liste0.Column(0) = 8 Then Value = MsgBox("erreur", vbDefaultButton1, "Error")
If Liste0.Column(0) = 9 Then DoCmd.RunMacro "M_ouvrir intervention nuit"
If Liste0.Column(0) = 10 Then DoCmd.RunMacro "M_ouvrir intervention week-end"
If Liste0.Column(0) = 11 Then DoCmd.RunMacro "M_ouvrir creneaux intervention"

je ne crois pas avoir supprimer aucune des macro alors je ne sais pas comment faire pour me debug
merci de m'aider