Private Sub ChampsRechercheFormulaire_LostFocus() Dim rst As DAO.Recordset, entI As Integer Dim champ As Field Set rst = Me.Recordset rst.FindFirst "[Raison Sociale] like '*" & Me.ChampsRechercheFormulaire & "*'" End Sub --------------------------------------------------------------------------- Private Sub Commande120_Click() Dim rst As DAO.Recordset, entI As Integer Dim champ As Field Set rst = Me.Recordset rst.FindNext "[Raison Sociale] like '*" & Me.ChampsRechercheFormulaire & "*'" End Sub -------------------------------------------------------------------------