Re,
Modifier code :
'TextBox13.Value = Format(Date, "dd mmmm yyyy") en TextBox13.Value = DateValue(Now)
comme cela à l'ouverture de l'userform la textbox13 est automatiquement renseignée.
Private Sub UserForm_Initialize()
Dim Plage As Range
With Worksheets("Bdd")
Set Nom1 = .Range("A2")...