Problème avec Userform

Private Sub CommandButton1_Click()
If UserForm2.TextBox1.Text = "" Then
    MsgBox ("Requête non trouvée")
    Exit Sub
End If
Dim x As Long
Dim FL1 As Worksheet
    Set FL1 = Worksheets("MSDS MP")
    For x = 1 To FL1.Range("A65535").End(xlUp).Row
        If UCase(FL1.Range("A" & x)) Like "*" & UCase(UserForm2.TextBox1.Value) & "*" Then
            LigneActive = x
            UserForm2.TextBox1.Value = FL1.Cells(LigneActive, "A").Value
            UserForm2.TextBox2.Value = FL1.Cells(LigneActive, "V").Value
            Exit Sub
        End If
    Next
End Sub

        If UCase(FL1.Range("A" & x)) Like "*" & UCase(UserForm2.TextBox1.Value) & "*" Then
            LigneActive = x
            UserForm2.TextBox1.Value = FL1.Cells(LigneActive, "A").Value
            UserForm2.TextBox2.Value = FL1.Cells(LigneActive, "V").Value
            Exit Sub
[COLOR="Red"]          else
            MsgBox "Requête non trouvée"[/COLOR]
        End If