Private Sub CommandButton2_Click()
Sheets("VL").Select
Dim x As Integer
Dim derniere_ligne As Integer
Dim valeur As Variant
valeur = UserForm2.TextBox13.Value ' valeur cherchée
derniere_ligne = Range("A65536").End(xlUp).Row 'valeur de la derniere ligne de la colonne A
For x = 1 To derniere_ligne Step 1
If Range("b" & x) = valeur Then
Range("b" & x).ActiveCell
End If
Next x
End Sub