Private Sub CommandButton1_Click()
Dim Lig&, Col&, V
If Me.TextBox2 = "" Or Me.TextBox3 = "" Then Exit Sub
V = Me.TextBox2.Text: If IsNumeric(V) Then V = CDbl(V)
Lig = Application.Match(V, [noms], 0)
Col = CDate(TextBox3.Text) - [Dates].Columns(1).Value + 1
V = Me.TextBox1.Text: If V = "" Then V = Empty Else If IsNumeric(V) Then V = CDbl(V)
[tableau].Cells(Lig, Col).Value = V
End Sub