Impasse pour terminer mon application

Bonjour,
A titre d'information, je suis nouveau que ce soit "FORUM OU VBA";
Je Souhaite Afficher une valeur de:
(Sheets ("BDD").Cells(i,21).Valeur) Dans UserForm1.Label16.Caption
Suivant les Etapes ci dessous:
1- UserForm1.Label3.Caption <>""
'Référence de l'Article
2- UserForm1.Label16.Caption
' Le prix de L'article ne doit pas être Affiché à ce stade
3- BtCommande5_Click
MsgBox ("Tapez Une Quantité")
4- Les condition:
If (IsNumeric(TextBox1.Value)=True) Then
If (Int(TextBox1.Value<>0) Then
If(Int(TextBox1.Value<=Int(UserForm1.Label13.Caption)) Then
'Label13=Stock
Une Fois Quantité sur TextBox1 OK
La Valeur de (Sheets("BDD").Cells(i,21).Value) Doit S'afficher Dans Label16
Merci