Private Sub WriteHistoric()
Dim NID%
On Error Resume Next
NID = [T_Historique].Rows.Count
[T_Historique[Nom]].Item(NID) = tb1
[T_Historique[Prenom]].Item(NID) = tb2
[T_Historique[DateN]].Item(NID) = tb3
[T_Historique[Ville]].Item(NID) = tb4
[T_Historique[tel1]].Item(NID) = Val(tb5)
[T_Historique[tel2]].Item(NID) = Val(tb6)
[T_Historique[Mail]].Item(NID) = tb7
[T_Historique[pays]].Item(NID) = CmbPays
End Sub