gestion stock ,macro dans usf

bonjour a tous et toutes
voila
j'aimerais apporter une modification dans cette macro (adaptation d'une demo de a@+thierry )
mais "je" bogue....
If LabelStock < 1 Then ok la macro ci dessous fonctionne
mais je souhaiterais
If LabelStock < labelministock then .

labelministock etant: Sheets("Articles").Range("E" & VarSelectedArticle).Value
voir feuille "articles" dans fichier joint
merci de me donner un coup de main
bonne jouirnée
Evelynetfrancois


Private Sub ListBox1_Click()
VarSelectedArticle = UserForm1.ListBox1.ListIndex + 2
LabelStock = Sheets("Articles").Range("D" & VarSelectedArticle).Value
LabelCode = Sheets("Articles").Range("A" & VarSelectedArticle).Value
'Labelministock = Sheets("Articles").Range("E" & VarSelectedArticle).Value


If LabelStock < 1 Then ' si je mets "<1" ,pas de probleme
'mais je voudrais que la macro compare le LabelStock
'au Labelministock situe en :Sheets("Articles").Range("E")voir feuille "articles"


LabelPrixUnit.Visible = True
TextBoxQuantite.Visible = True
LabelPrixTotal.Visible = True
PTentrée.Visible = False
GDentrée.Visible = True
CommandButton4.Visible = True
LabelPrixUnit.Visible = True
LabelCode = Sheets("Articles").Range("A" & VarSelectedArticle).Value
LabelPrixUnit = Format(Sheets("Articles").Range("C" & VarSelectedArticle).Value, "#,##0.00")
TextBoxQuantite.SetFocus
Else
PTentrée.Visible = True
GDentrée.Visible = False
CommandButton4.Visible = False
TextBoxQuantite.Visible = True
LabelCode = Sheets("Articles").Range("A" & VarSelectedArticle).Value
LabelPrixUnit = Format(Sheets("Articles").Range("C" & VarSelectedArticle).Value, "#,##0.00")
LabelPrixTotal = ""
TextBoxQuantite = ""
TextBoxQuantite.SetFocus
End If
End Sub