Bonsoir le forum
Bonsoir jmcr

Pour l'erreur.....normal, il cherche une donnée que nous venons d'effacer. Il suffit d'ajouter une ligne dans "Private Sub Cb_race_Change"

Private Sub Cb_race_Change()
Dim ladate As String
    If Cb_race.Value = "" Then Exit Sub
    ladate = TextBox3.Text
    age_animal = Val(Format(Now - CDate(ladate), "mm") - 1) & " mois " & Val(Format(Now - CDate(ladate), "dd") + 1) & " jours"
    TextBox4.Value = age_animal
End Sub

Quand tu "effaces", cela joue uniquement sur l'USF mais pas sur la feuille, c'est OK ?

Pour les doublons (je n'avais pas remarqué), c'est plus compliqué. Je vais regarder, mais donne moi un peu de temps, merci d'avance.

A plus
Eric