Private Sub Valider_Click()
Dim x As Long
Dim y As Long
Dim NomZ As String
Dim Trouve As Boolean
Dim FL2 As Worksheet
Dim NomComm As Range
NomZ = SortieStock.TextBox1.Value
Set FL2 = Worksheets("SORTIE STOCKS")
With FL2
Set NomComm = .Columns(1).Find(NomZ, LookIn:=xlValues, lookat:=xlWhole)
If Not NomComm Is Nothing Then
LigneActive = NomComm.Row
Else
MsgBox "Le nom commercial n'a pas été trouvé.", vbExclamation
Exit Sub
End If
ColonneActive = .Range("IV" & LigneActive).End(xlToLeft).Column + 1
.Cells(LigneActive, ColonneActive).Value = SortieStock.TextBox9.Value
End With
End Sub