Private Sub BtnRecherche_Click()
Dim idx As Variant
If Not IsEmpty(Range("B2")) Then
idx = Application.Match(CStr([B2]), Sheets("Rapport 1").Range("B$1:B$10000"), 0)
If Not IsError(idx) Then
Application.Goto Sheets("Rapport 1").Range("A1").Offset(idx - 1).Resize(, 2), True
Else
MsgBox "Immatriculation " & Range("B2") & " non trouvée!", vbExclamation, "Recherche fiche véhicule"
End If
Else
MsgBox "Saisissez une imatriculation en cellule B2 puis recommencez", vbExclamation, "Recherche fiche véhicule"
End If
End Sub