Erreur incompatiblité d'exécution '13

Bonjour tout l monde , je suis entrain de faire un calcul dans mon formulaire qui va ^étre ensuite envoyé dans mon tableau mais ça m'affiche l'erreur marquée dans le " titre ", pouvez me dire ou est l'erreur car je le vois pas de tout en plus j'ai essayé plusieurs fois val , double , ...mais toujours j'ai cette erreur. Merci

la thèse "Laser à semiconducteur moyen-IR à cristaux photoniques/plasmons pour capteur de gaz longue distance

peut être en mettant :

la_thèse = "Laser à semiconducteur moyen-IR à cristaux photoniques/plasmons pour capteur de gaz longue distance"

En fin Merci mais l'erreur je l'ai au niveau des lignes

TextBoxRC.Value = (Val(TextBoxRM) + Val(TextBoxRNI) - Val(TextBoxRMN)) / 2
 'TextBoxRC = Replace(TextBoxRC.Value, ",", ".")
  'TextBoxC = TextBoxRC / (2 * TextBoxRM)

Quand je calcule textboxC j'ai cette erreur

Avec un petit fichier, vous aurez plus de résultat je pense, parce que comme ça, pas évident à déchiffrer.

le fichier est volumineux je vous envois le code de programme dans mon textbox

Private Sub TextBoxRMN_Change()
 TextBoxRC.Value = (Val(TextBoxRM) + Val(TextBoxRNI) - Val(TextBoxRMN)) / 2
 'TextBoxRC = Replace(TextBoxRC.Value, ",", ".")

 TextBoxC = TextBoxRC / (2 * TextBoxRM)
 If (Me.TextBoxRC.Value < 0) Or (Me.TextBoxC > 0.15) Or (TextBoxRNI.Value < TextBoxRNG.Value) Then
    CheckBoxenregistrer.Visible = True
    Label26.Visible = True
    Me.Label26.BackColor = RGB(255, 0, 0)

    End If
    If (Me.TextBoxRC.Value > 0) And (Me.TextBoxC <= 0.15) And (TextBoxRNI.Value > TextBoxRNG.Value) Then
    CommandButtonAjouter.Enabled = False
     CheckBoxenregistrer.Visible = False
     CommandButtonAjouter.Enabled = True
     CheckBoxenregistrer.Value = False
     Label26.Visible = False
    End If

 End Sub

Personne pour m'aider !!!