Bonjour,
Je vais répondre avec ce que j'ai vu/testé actuellement :
Pour l'enregistrement, c'est instantané chez moi , ton programme m'a l'air bien.
En revanche pour le second point, je ne vois pas sur quelle formule ça plante, mais je pense que ton soucis vient de la ligne suivante :
.Range("D" & i2).Value = TextBox1 'Format(TextBox1, "dd/mm/yyyy")
C'est un problème récurrent quand on travaille avec des dates, on exporte la valeur d'une textbox qui est du texte par défaut, et donc pas une date qui est numérique, tu peux par exemple utiliser la fonction cdate pour être sûr d'avoir une date.
Tu parles ensuite de ton label qui change de couleur, ça ne le fait pas chez moi, c'est normal? Je n'ai pas bien compris si c'est ce que tu voulais faire ou bien si c'est ce que tu as fait...
Peux tu m'éclairer sur tes attentes et tes problèmes?