'sur un event du formulaire de recherche (ex double clic sur résultat)
Dim RS As Object
DoCmd.OpenForm "FRM_PRODUITS"
Set RS = Forms![FRM_PRODUITS].Recordset.Clone
RS.FindFirst "[n°CAS] = '" & Me.ZDL_Result_GEP & "'" 'pas de quotes si valeur numérique
Forms![FRM_PRODUITS].Bookmark = RS.Bookmark
Set RS = Nothing