(chemin as text, optional parametres as nullable record) as any =>
    let
        parametresBruts = if parametres = null then [] else parametres,
        champsUtiles = List.Select(
            Record.FieldNames(parametresBruts),
            each Record.Field(parametresBruts, _) <> null and Record.Field(parametresBruts, _) <> ""
        ),
        parametresNettoyes = Record.SelectFields(parametresBruts, champsUtiles),
        reponse = Web.Contents(
            ApiBaseUrl,
            [
                RelativePath = chemin,
                Headers = [#"X-API-Key" = ApiKey, #"Accept" = "application/json"],
                Query = parametresNettoyes
            ]
        ),
        resultat = Json.Document(reponse)
    in
        resultat