Gestion de stok très simplifiée

Option Explicit

Private Sub BtOk_Click()
Dim L As Long, Qté As Long, Stock As Long, Z As String, Lgn As Long, prénom As String
L = CbxCode.ListIndex + 1
If L = 0 Then
   MsgBox "Veuillez entrer un code correct", vbCritical, "Mouvement"
ElseIf Not IsNumeric(TbxQté.Value) Then
   MsgBox "Veuillez saisir une quantité numérique", vbCritical, "Mouvement"
Else
   Qté = TbxQté.Value: If Left$(Caption, 6) = "Sortie" Then Qté = -Qté
   Stock = FLstPcD.[StockDispo].Rows(L).Value
   If Stock + Qté < 0 Then Z = "             Stock insuffisant !" & vbLf: Qté = 0 Else Z = ""
   If Qté = 0 Then
      MsgBox Z & " Veuillez saisir une quantité valide ", vbCritical, Caption
      Else
      UfMvt.Hide
      
   If MsgBox(Z & Abs(Qté) & " pièces """ & CbxCode.Value & """ à " & Choose((Sgn(Qté) + 3) \ 2, _
      "retirer.", "approvisionner"), vbOKCancel) = vbOK Then
   prénom = InputBox("Confirmer:", "Pour confirmer, entrer vos nom et prénom, puis cliquez sur OK")
   
       End If
      
      Stock = Stock + Qté
      FLstPcD.[StockDispo].Rows(L).Value = Stock
      With FArch.[Tablo]: Lgn = .Rows.Count: .Rows(Lgn).Copy: .Rows(Lgn).Insert
         Lgn = .Rows(Lgn + 1).Row: End With
      FArch.[Heure].Rows(Lgn).Value = Now
      FArch.[Code.].Rows(Lgn).Value = CbxCode.Value
      FArch.[Qté].Rows(Lgn).Value = Qté
      FArch.[Stock].Rows(Lgn).Value = Stock
      FLstPcD.[DatDrnMvt].Rows(L).Value = Now
      FLstPcD.[QtéDrnMvt].Rows(L).Value = Qté
[COLOR="red"]FArch.[Nom].Rows(Lgn).Value = prénom[/COLOR]
      CreateObject("Wscript.shell").Popup "Merci"&"prénom saisi !", 2, "Confirmation", 64
      End If
      End If
   
End Sub


Private Sub UserForm_Click()

End Sub

ColumnCount:     2
ColumnWidths:    40
RowSource:       CodesPièces:DescriptionPièces