Pas d'erreur chez moi.
J'ai en séparateur décimal le ".", tu dois avoir la ",". Il faut la remplacer si tu as cette habitude saisie.
Ex :
Range("C11") = CDbl(Replace(TextBox2, ",", "."))
devrait être mieux chez toi.
Idem pour tous les fautifs potentiels.
eric