Private Sub CommandButton1_Click()
If UserForm2.TextBox1.Text = "" Then
MsgBox ("prem 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
MsgBox ("Requête non trouvée")
End Sub