soustraire les quantitées

bonjour le forum
voila,avec se bouton j'envoi les données des quantitées sorties sur la feuille,est ce possible de soustraire une fois validé les quantitées sorties au quantité entrée mais sur la feuille:
textbox8 - label17


Private Sub CommandButton3_Click() 'validations des sorties
Dim rep As Byte
Dim Feuille As String
If TextBox8 = "" Then
MsgBox "Renseigné la quantitée,SVP ! ", _
vbCritical, "MANQUE DONNEE"
Exit Sub
End If
If TextBox8 > Label17 Then 'stock insuffisant
MsgBox "La quantité demandée " & TextBox8 & " est supérieur au stock " _
& Label17, vbCritical, "Stock Insuffisant"
TextBox8 = Label17
TextBox8.SetFocus
Exit Sub
End If
Feuille = ActiveSheet.Name
Range("A5:J5").Select
Selection.Insert Shift:=xlDown

With Sheets(Feuille)

.Range("B5").Value = TextBox7.Text 'date
.Range("A5").Value = ComboNOM.Text 'nom de la personne
.Range("F5").Value = Comboref.Text 'article
.Range("g5").Value = Label17 'quantité entrée
.Range("h5").Value = Label20 'prix/article
.Range("D5").Value = Label22 'code
.Range("j5").Value = TextBox8.Text 'quantitée sortie
End With

Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
ComboNOM = ""
Comboref = ""
Label17 = ""
Label22 = ""
TextBox8 = ""
End Sub

merci
@ plus
petchy