Demande d'aide sur Userform

Option Explicit
Dim enregistrement As Boolean

Private Sub cmd1_Click()
If enregistrement = False Then
    Select Case MsgBox("Vous n'avez pas enregistrer vos données." _
                       & vbCrLf & "" _
                       & vbCrLf & "Voulez vous quitter ?" _
                       , vbYesNo Or vbInformation Or vbDefaultButton1, Application.Name)
        Case vbYes
        Case vbNo
            Exit Sub
    End Select
End If
Unload Me

End Sub

Private Sub CommandButton6_Click()
Dim I As Long
'on boucle sur toute la liste de la listbox
For I = 0 To Lbx_Produit.ListCount - 1
'Si le produit est sélectionné
  If Lbx_Produit.Selected(I) Then
    Sheets("Produits").Range("A" & I + 5).Value = Tbx_Lot.Value
    enregistrement = True
  End If
Next
End Sub

Private Sub UserForm_Initialize()

  Lbx_Produit.List = Sheets("Produits").Range("B5", [B5].End(xlDown)).Value
End Sub