Microsoft 365 Userform Modification

Private Sub BtModifProduit_Click()
    Dim TBL
    With Range("TbProduit").ListObject
        If LstProduit.ListIndex = -1 Then MsgBox "Vous n'avez pas sélectionné de Ligne à Modifier": Exit Sub
        TBL = Array(TxtLibelle, TxtCodeArticle, TxtPrixVente, TxtCdt, TxtGencod, TxtCodeLM, TxtPvLM, TxtCodeAPEX, TxtPvAPEX, TxtCodeGAMMVERT, _
                    TxtPvGAMMVERT, TxtCodeAUCHAN, TxtPvAUCHAN, TxtGencodTRUFF, TxtCodeTRUFF, TxtPvTRUFF, TxtPvCactusClub, TxtPvParticulier, ChbECommPro)
        For I = 1 To UBound(TBL) - 1
            If IsNumeric(TBL(I)) > 0 Then TBL(I) = CDbl(TBL(I))
        Next
                
        .ListRows(LstProduit.ListIndex + 1).Range.Value = TBL

        'on modifie la ligne selectionnée
    End With
    Alimenter_List LstProduit, Range("TbProduit").Value    'on remet la listbox a jour automatiquement
    TxtLibelle = "": TxtCodeArticle = "": TxtPrixVente = "": TxtCdt = "": TxtGencod = "": TxtCodeLM = "": TxtPvLM = "": TxtCodeAPEX = "": _
            TxtPvAPEX = "": TxtCodeGAMMVERT = "": TxtPvGAMMVERT = "": TxtCodeAUCHAN = "": TxtPvAUCHAN = "": TxtGencodTRUFF = "": TxtCodeTRUFF = "": _
            TxtPvTRUFF = "": TxtPvCactusClub = "": TxtPvParticulier = "": ChbECommPro = "":
LstProduit.ListIndex = -1
End Sub

'*************************************************************************************************
'PAGE Coût Trans -->TbCalcTransVente
'*************************************************************************************************
Private Sub TxtCoeffTransBox_Change(): calculBox: End Sub
Private Sub TxtCoutBox_Change(): calculBox: End Sub
Private Sub TxtPoidsBox_Change(): calculBox: End Sub

Sub calculBox() 'encore une sub generique
Dim critere As Boolean
critere = TxtCoutBox.Value <> "" And TxtPoidsBox.Value <> "" And TxtCoeffTransBox.Value <> ""
If critere Then TxtPrixKgTrans = Round((CDec(TxtCoutBox) / CDec(TxtPoidsBox)) * CDec(TxtCoeffTransBox), 2) Else TxtPrixKgTrans = ""
End Sub

Private Sub LstCoutTransAval_Click()
    With LstCoutTransAval
        TxtPoidsBox = .Value
        TxtCoutBox = .List(.ListIndex, 1)
        TxtCoeffTransBox = .List(.ListIndex, 2)
        'TxtPrixKgTrans = .List(.ListIndex, 3)
    End With
    End Sub

Private Sub BtModifCoutTrans_Click()
    If TxtPrixKgTrans = "" Then MsgBox "remplissez les valeurs": Exit Sub
    With Range("TbCalcTransVente").ListObject
        If LstCoutTransAval.ListIndex = -1 Then MsgBox "Vous n'avez pas sélectionné de Ligne à Modifier": Exit Sub
        .ListRows(LstCoutTransAval.ListIndex + 1).Range.Value = Array(CDbl(TxtPoidsBox), CDbl(TxtCoutBox), CDbl(TxtCoeffTransBox), CDbl(TxtPrixKgTrans))   'on modifie la ligne selectionnée
    End With
    Alimenter_List LstCoutTransAval, Range("TbCalcTransVente").Value    'on remet la listbox a jour automatiquement
    TxtPoidsBox = "": TxtCoutBox = "": TxtCoeffTransBox = "": TxtPrixKgTrans = ""
End Sub
'*************************************************************************************************

'*************************************************************************************************
'PAGE Comm Centrale-->TbCommCentrale
'*************************************************************************************************
Private Sub TxtPourcentageComm_Change()
If TxtPourcentageComm <> "" Then TxtCoeffComm = TxtPourcentageComm + 1
End Sub

Private Sub LstCommCentrale_Click()
    With LstCommCentrale
        TxtPourcentageComm = .Value
        TxtCoeffComm = .List(.ListIndex, 1)
    End With
    TxtCoeffComm = TxtPourcentageComm / 10 + 1
End Sub

Private Sub BtModifComm_Click()
    With Range("TbCommCentrale").ListObject
        If LstCommCentrale.ListIndex = -1 Then MsgBox "Vous n'avez pas sélectionné de Ligne à Modifier": Exit Sub
        .ListRows(LstCommCentrale.ListIndex + 1).Range.Value = Array(CDbl(TxtPourcentageComm), CDbl(TxtCoeffComm))    'on modifie la ligne selectionnée
    End With
    Alimenter_List LstCommCentrale, Range("TbCommCentrale").Value    'on remet la listbox a jour automatiquement
    TxtPourcentageComm = "": TxtCoeffComm = ""
End Sub
'*************************************************************************************************