Crédits aux PME - PME

Données - BDF

Auteur

François Geerolf

Info

Structure

LAST_DOWNLOAD

LAST_DOWNLOAD
NA

LAST_COMPILE

LAST_COMPILE
2026-07-24

Last

date Nobs
2026-01-31 9

Taux d’intérêt des crédits nouveaux, par taille d’entreprise

Taux d’intérêt annuel moyen des crédits nouveaux (hors découverts) accordés aux entreprises non financières résidentes en France, selon leur taille.

Depuis 2006

Code 
PME %>%
  
  filter(DIREN_TAILLENT %in% c("MO", "PM", "EI", "GE")) %>%
  mutate(Taille = case_when(
    DIREN_TAILLENT == "MO" ~ "Microentreprises",
    DIREN_TAILLENT == "PM" ~ "PME (hors microentreprises)",
    DIREN_TAILLENT == "EI" ~ "ETI",
    DIREN_TAILLENT == "GE" ~ "Grandes entreprises")) %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Taille)) +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = "2 years",
               labels = date_format("%Y")) +
  scale_y_continuous(labels = percent_format(accuracy = 0.1)) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical")

Depuis 5 ans

Code 
PME %>%
  
  filter(DIREN_TAILLENT %in% c("MO", "PM", "EI", "GE")) %>%
  mutate(Taille = case_when(
    DIREN_TAILLENT == "MO" ~ "Microentreprises",
    DIREN_TAILLENT == "PM" ~ "PME (hors microentreprises)",
    DIREN_TAILLENT == "EI" ~ "ETI",
    DIREN_TAILLENT == "GE" ~ "Grandes entreprises")) %>%
  na.omit %>%
  filter(date >= max(date) - years(5)) %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Taille)) +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = "6 months",
               labels = date_format("%b %Y")) +
  scale_y_continuous(labels = percent_format(accuracy = 0.1)) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Par cotation (rating)

Code 
PME %>%
  
  filter(DIREN_TAILLENT %in% c("CE", "CF", "CX")) %>%
  mutate(Cotation = case_when(
    DIREN_TAILLENT == "CE" ~ "Cotation élevée",
    DIREN_TAILLENT == "CF" ~ "Cotation faible",
    DIREN_TAILLENT == "CX" ~ "Non cotées")) %>%
  na.omit %>%
  ggplot + geom_line(aes(x = date, y = value/100, color = Cotation)) +
  xlab("") + ylab("") + theme_minimal() +
  scale_x_date(breaks = "2 years",
               labels = date_format("%Y")) +
  scale_y_continuous(labels = percent_format(accuracy = 0.1)) +
  theme(legend.position = c(0.25, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical")

Dernier point

Code 
PME %>%
  
  na.omit %>%
  group_by(Variable) %>%
  filter(date == max(date)) %>%
  ungroup() %>%
  select(Variable, date, value) %>%
  arrange(desc(value)) %>%
  print_table_conditional()
Variable date value
Crédits nouveaux (hors découverts) aux entreprises de plus de trois ans, taux d'intérêt annuel 2026-01-31 3.606
Crédits nouveaux (hors découverts) aux microentreprises, taux d'intérêt annuel 2026-01-31 3.430
Crédits nouveaux (hors découverts) aux PME (hors microentreprises), taux d'intérêt annuel 2026-01-31 3.407
Crédits nouveaux (hors découverts) aux entreprises de cotation faible, taux d'intérêt annuel 2026-01-31 3.261
Crédits nouveaux (hors découverts) aux entreprises non cotées, taux d'intérêt annuel 2026-01-31 3.213
Crédits nouveaux (hors découverts) aux entreprises de moins de trois ans, taux d'intérêt annuel 2026-01-31 3.025
Crédits nouveaux (hors découverts) aux ETI, taux d'intérêt annuel 2026-01-31 2.857
Crédits nouveaux (hors découverts) aux grandes entreprises, taux d'intérêt annuel 2026-01-31 2.830
Crédits nouveaux (hors découverts) aux entreprises de cotation élevée, taux d'intérêt annuel 2026-01-31 2.673