F <- 
  FACTEURS_CROISSANCE_EPRC_PROJETES_FLEX

VIZ <- F %>% 
  filter(gpr == "rvieillesse_simple", alt == 100)
