Dim TVL(1 To 1, 1 To 7)
TVL(1, 1) = TextBox1.Value
TVL(1, 2) = TextBox2.Value
TVL(1, 3) = ComboBox1.Value
TVL(1, 4) = CDbl(TextBox3.Value)
TVL(1, 5) = CDbl(TextBox4.Value)
TVL(1, 6) = ComboBox2.Value
TVL(1, 7) = TextBox5.Value
Sheets("Compte").ListObjects(1).ListRows.Add.Range.Resize(, 7).Value = TVL