Sub Load_Tbx(L, Cbx As Control)
Upd = True
Cbx_Sap.ForeColor = vbBlack
Cbx_Ancien.ForeColor = vbBlack
Cbx_Nom.ForeColor = vbBlack
    With [Tabgood].Parent
If Cbx.Name <> "Cbx_Sap" Then Cbx_Sap = .Cells(L, 1)
If Cbx.Name <> "Cbx_Nom" Then Cbx_Nom = .Cells(L, 2)
        TextBox7 = .Cells(L, 3)
        TextBox6 = .Cells(L, 4)
        TextBox24 = .Cells(L, 5)
       
If Cbx.Name <> "Cbx_Ancien" Then Cbx_Ancien = .Cells(L, 8)
        TextBox16 = .Cells(L, 9)
        TextBox8 = .Cells(L, 10)
        TextBox9 = .Cells(L, 11)
        TextBox25 = .Cells(L, 12)
        TextBox21 = .Cells(L, 13)
        TextBox3 = .Cells(L, 14)
        TextBox4 = .Cells(L, 15)
        TextBox22 = .Cells(L, 16)
        TextBox23 = .Cells(L, 17)
       
        TextBox18 = .Cells(L, 19)
        TextBox19 = .Cells(L, 20)
        TextBox26 = .Cells(L, 21)
        TextBox28 = .Cells(L, 22)
        TextBox30 = .Cells(L, 23)
        TextBox27 = .Cells(L, 24)
        TextBox29 = .Cells(L, 25)
        TextBox11 = .Cells(L, 26)
        TextBox10 = .Cells(L, 27)
        TextBox5 = .Cells(L, 28)
        Dealeraccount.ControlTipText = "USE FORMAT xxxxx001"
    End With
   
    If L = Rows.Count Then
        Cbx.ForeColor = vbRed
        MsgBox Cbx.Tag & "  {" & Cbx & "}" & vbLf & "Entrée non trouvée"
    End If
   
Upd = False
End Sub