Erreur d'incompatibilité 13 - Code VBA

Bonjour,

Un problème 13 est apparu sur mon code impossible de trouver l'erreur depuis 2jours. Pourtant il avait marché je comprends pas ce qui a changé. J'ai essayé de respecter au mieux les principes de l'informatique, je n'ai pas mélanger de chaine de caractère avec des valeurs algébriques, j'ai défini chaque variable, j'ai vérifié que chaque cellule utilisée avec Range.Value contenait un nombre mais rien à faire !

Je joins en PJ l'Excel, si vous pourriez jeter un coup d'oeil pour m'aider,

https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download

En vous remerciant,

Thomas

Un extrait du code en question:

UserForm 3 :
Private Sub CommandButton5_Click()
Unload UserForm3
If OptionButton1 = True Then
UserForm4.Show
End If
If OptionButton2 = True Then
UserForm5.Show
End If
End Sub
Private Sub CommandButtonUF32_Click()
Unload Me
Range("C17").ClearContents
End Sub

UserForm2:
Sub TextBox7_Change()
If Not IsNumeric(TextBox7) And Not TextBox7.Text = "" Then
MsgBox ("pas numeric")
TextBox7.Text = Mid(TextBox7.Text, 1, Len(TextBox7.Text) - 1)
End If
CalculMoy2
End Sub
Sub TextBox8_Change()
If Not IsNumeric(TextBox8) And Not TextBox8.Text = "" Then
MsgBox ("Not a numeric value")
TextBox8.Text = Mid(TextBox8.Text, 1, Len(TextBox8.Text) - 1)
End If
CalculMoy2
End Sub
Sub CalculMoy2()
Me.TextBox9.Value = (Val(Replace(Me.TextBox7, ",", ".")) + Val(Replace(Me.TextBox8, ",", "."))) / 2
End Sub
Private Sub TextBox9_Change()
Range("C11") = TextBox9.Value
End Sub
Private Sub CommandButton3_Click()
Unload UserForm2
Range("C13").Value = Range("C11").Value / (24 * Range("M2").Value)
rslt1 = Range("C10").Value - Range("C13").Value * Range("M2").Value * 24 * (Range("C8").Value / 100)
rslt2 = Range("M2").Value * (24 - 24 * (Range("C8").Value / 100))
Range("C12").Value = (rslt1) / (rslt2)
End Sub
Private Sub CommandButton4_Click()
Unload Me
Range("C11").ClearContents
End Sub