FeuilDonneesVente.Cells(I, 1).Value = Me.TxCodeArticle.Value
FeuilDonneesVente.Cells(I, 2).Value = Me.TxLibelleArticle.Value
FeuilDonneesVente.Cells(I, 3).Value = CDbl(Me.TxPrix.Value)
FeuilDonneesVente.Cells(I, 4).Value = CDbl(Me.TxQuantite.Value)
FeuilDonneesVente.Cells(I, 5).Value = CDbl(Me.TxMontant.Value)
FeuilDonneesVente.Cells(I, 6).Value = DateS
FeuilDonneesVente.Cells(I, 7).Value = Me.TxCodeFamille.Value
FeuilDonneesVente.Cells(I, 8).Value = Me.TxLibelleFamille
FeuilDonneesVente.Cells(I, 9).Value = Me.TxUniteVente