Private Sub QteSoie_Change()
If QteSoie.Value <> "" Then TxtSoie = Application.VLookup(Label186.Caption, Sheets("Données").Range("TbAccessoire"), 2, 0) * QteSoie Else TxtSoie = ""
End Sub
Private Sub QteCordelette_Change()
If QteCordelette.Value <> "" Then TxtCordelette = Application.VLookup(Label187.Caption, Sheets("Données").Range("TbAccessoire"), 2, 0) * QteCordelette Else TxtCordelette = ""
End Sub
Private Sub QteEtiCar_Change()
If QteEtiCar.Value <> "" Then TxtEtiquetteCarton = Application.VLookup(Label188.Caption, Sheets("Données").Range("TbAccessoire"), 2, 0) * QteEtiCar Else TxtEtiquetteCarton = ""
End Sub