et de cette manière même Bug
.ListRows(LstProduit.ListIndex + 1).Range.Value = Array(TxtLibelle, TxtCodeArticle, CDbl(TxtPrixVente) _
, TxtCdt, IIf(TxtGencod = "", "", TxtGencod), IIf(TxtCodeLM = "", "", TxtCodeLM), IIf(TxtPvLM = "", "", CDbl(TxtPvLM)) _
, IIf(TxtCodeAPEX = "", "", TxtCodeAPEX), IIf(TxtPvAPEX = "", "", CDbl(TxtPvAPEX)) _
, IIf(TxtCodeGAMMVERT = "", "", TxtCodeGAMMVERT), IIf(TxtPvGAMMVERT = "", "", CDbl(TxtPvGAMMVERT)) _
, IIf(TxtCodeAUCHAN = "", "", TxtCodeAUCHAN), IIf(TxtPvAUCHAN = "", "", CDbl(TxtPvAUCHAN)) _
, IIf(TxtGencodTRUFF = "", "", TxtGencodTRUFF), IIf(TxtCodeTRUFF = "", "", TxtCodevTRUFF), IIf(TxtPvTRUFF = "", "", CDbl(TxtPvTRUFF)) _
, IIf(TxtPvCactusClub = "", "", CDbl(TxtPvCactusClub)), IIf(TxtParticulier = "", "", CDbl(TxtParticulier)), IIf(ChbECommPro = "", "", ChbECommPro)) 'on modifie la ligne selectionnée