Private Sub CommandButton1_Click()
Dim LOt As ListObject, TVL()
Set LOt = [Tableau1].ListObject
ReDim TVL(1 To 1, 1 To LOt.ListColumns.Count)
TVL(1, LOt.ListColumns("PAYS").Index) = TextBox1.Text
TVL(1, LOt.ListColumns("DISTANCE").Index) = CDbl(TextBox2.Text)
TVL(1, LOt.ListColumns("CAPITALE").Index) = TextBox3.Text
LOt.ListRows.Add.Range.Value = TVL
Unload Me
End Sub