Private Sub CommandButton1_Click() 'Valider
Dim t#, dat As Variant
t = Timer
If IsDate(TextBox1) Then dat = CDate(TextBox1) Else dat = TextBox1
[B3:F3] = Array(dat, TextBox2, TextBox3, TextBox4, Replace(Replace(TextBox5, "€", ""), ",", "."))
MsgBox "Durée du calcul " & Format(Timer - t, "0.00 \s") 'juste pour tester
End Sub
Private Sub UserForm_Initialize()
TextBox1 = [B3]: TextBox2 = [C3]: TextBox3 = [D3]: TextBox4 = [E3]: TextBox5 = [F3].Text
End Sub