debutph <- function(fich) {
  df <- read_csv(
    fich,
    col_names = TRUE,
    na = c("", "NA"),
    lazy = FALSE,
    show_col_types = FALSE
  ) %>%
    mutate_if(is.character, as.factor) %>%
    janitor::clean_names()
  names(df) <- str_replace_all(names(df), "_", ".")
  return(df)
}