Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim I As Integer, Tablo As ListObject
With Sheets("Itinéraire").ListObjects("iti")
.ListRows.Add
.ListRows(.ListRows.Count).Range(2) = Me.ListBox1.List(0, 1)
End With
Me.TextBox1.Value = ""
Me.TextBox1.SetFocus
End Sub