Private Sub Valider_Click()
Dim LRwDest As ListRow, RngDest As Range
If IsNumeric(Ref_PC.Text) Then TVL(1, 1) = CDbl(Ref_PC.Text) Else TVL(1, 1) = Ref_PC.Text
TVL(1, 2) = IPN.Value
TVL(1, 3) = Nom.Value
TVL(1, 4) = Site.Value
TVL(1, 5) = Modele.Value
TVL(1, 6) = Ace.Value
TVL(1, 7) = Commentaire.Value
If Not IsDate(DateLivraison.Text) Then TVL(1, 8) = Empty Else _
TVL(1, 8) = CDate(DateLivraison.Text)
If Not IsDate(DateMaj.Text) Then TVL(1, 9) = Empty Else _
TVL(1, 9) = CDate(DateMaj.Text)
TVL(1, 10) = Chipre.Text
TVL(1, 11) = Stock.Value
TVL(1, 12) = AD.Value
TVL(1, 13) = TechAcc.Value
TVL(1, 14) = Alimentation.Value
TVL(1, 15) = Ada1.Value
TVL(1, 16) = Ada2.Value
TVL(1, 17) = Ada3.Value
TVL(1, 18) = Ada4.Value
TVL(1, 19) = Ada5.Value
If Statut.Text <> TVL(1, 20) Then
TVL(1, 20) = Statut.Text
Set LRwDest = ThisWorkbook.Worksheets(Statut.Text).ListObjects(1).ListRows.Add
Set RngDest = LRwDest.Range: RngDest.Value = TVL
LOt.ListRows(LCou).Delete
Application.Goto RngDest
Else
LOt.ListRows(LCou).Range.Value = TVL
End If
Unload Me
End Sub