XL 2013 Pourquoi ce code fait planter excel et comment corriger?

[jptaz15]

Bonjour à tous,

J'ai des soucis avec un code qui doit servir à activer / désactiver et ombrager certaines textbox lorsqu'un choix est sélectionné dans une combobox "Protocole". Lorsque j'essaie de sélectionner une option excel plante avec l'erreur suivante : Erreur Automation l'objet invoqué s'est déconnecté de ses clients. J'ai pourtant le même code sur une autre page de mon userform qui fonctionne bien.

Voici le code (celui qui fait planter Excel est le 2e (private sub Reg347), ainsi que mon fichier
Également Excel crash après une première sauvegarde et réouverture du fichier, je ne comprend pas pourquoi...

merci d'avance pour votre temps

' Protocole adapté (vitesse et pente) test initial

Private Sub Reg202_Change()
Dim ind As Long
For ind = 297 To 336
Controls("Reg" & ind).Enabled = Reg202.Text = "Protocole adapté"
Controls("Reg" & ind).BackColor = IIf(Reg202.Text = "Protocole adapté", "&H80000005", "&H80000004")
Next ind

End Sub

' Protocole adapté (vitesse et pente) test final

Private Sub Reg347_Change()

Dim ind As Long
For ind = 442 To 481
Controls("Reg" & ind).Enabled = Reg347.Text = "Protocole adapté"
Controls("Reg" & ind).BackColor = IIf(Reg347.Text = "Protocole adapté", "&H80000005", "&H80000004")
Next ind

End Sub