Trouver la 1ère cellule vide sur une ligne donnée

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

Private Sub Valider_Click()
Dim x As Long
Dim y As Long
Dim z As String
Dim trouve As Boolean
Dim FL2 As Worksheet

z = SortieStock.TextBox1.Value
Set FL2 = Worksheets("SORTIE STOCKS")
With FL2
    For x = 2 To .Range("A65536").End(xlUp).Row
        If UCase(.Range("A" & x)) Like UCase(z) Then
        LigneActive = x
        End If
    Next x
     For y = 7 To 50
         If .Cells(LigneActive, y).Value = "" Then
            .Cells(LigneActive, y).Value = SortieStock.TextBox9.Value
             Unload SortieStock
             MsgBox ("Sortie comptabilisée")
             SortieStock.Show
             trouve = True
             Exit For
         End If
     Next y
    
    If Not trouve Then
          MsgBox ("Requête non trouvée")
        End If
End With
End Sub