Dim F As Worksheet, L As Long
Set F = ActiveSheet
L = F.[Toto].Row
F.[Toto].Rows(L).Insert
F.Cells(L, 1).Value = TextBox1.Text 'saisie date dans col A
F.Cells(L, 2).Value = "" 'blanc dans col B
F.Cells(L, 3).Value = CDbl(TextBox2.Text) 'saisie du texte dans col C