Private Sub B_Validation_Click()
Dim y As Long
y = SpinButton1
With Sheets("Feuil3")
.Cells(y, 1) = EntréeSortie.Value
.Cells(y, 2) = DateJour
.Cells(y, 3) = DésignationArticle
Select Case EntréeSortie.ListIndex
Case 0
.Cells(y, 4) = Quantité.Value
[COLOR=Blue][B] .Cells(y, 4).Interior.Color = vbGreen[/B][/COLOR]
Case 1
.Cells(y, 4) = 0 '- Quantité.Value
[COLOR=Blue][B] .Cells(y, 4).Interior.Color = vbRed[/B][/COLOR]
End Select
End With
IniUsf '<---------
End Sub