OAT 0,50 % 25 mai 2040 - FR0013515806

Données - AFT

Fiche titre

Code
i <- FR0013515806_info
tibble(
  Caractéristique = c("Code ISIN", "Sous-titre", "Nature du titre", "Devise d'émission",
                       "Valeur nominale", "Maturité", "Amortissement", "Coupon", "Intérêts",
                       "Première date de jouissance", "Procédure d'émission",
                       "Caractéristiques juridiques", "Démembrable", "Encours"),
  Valeur = c(i$isin, i$subtitle, i$nature, i$devise, i$valeur_nominale,
             format(i$maturity_date, "%d/%m/%Y"), i$amortissement, paste0(i$coupon_rate, " %"),
             i$interets, format(i$premiere_jouissance, "%d/%m/%Y"), i$procedure_emission,
             i$caracteristiques_juridiques, i$demembrable,
             paste0(round(i$outstanding / 1e9, 1), " Md€"))
) |>
  gt() |>
  tab_header(title = i$title)
OAT 0,50 % 25 mai 2040
Caractéristique Valeur
Code ISIN FR0013515806
Sous-titre OBLIGATIONS ASSIMILABLES DU TRÉSOR (OAT)
Nature du titre Nominal, taux fixe
Devise d'émission Euro
Valeur nominale 1 Euro
Maturité 25/05/2040
Amortissement In fine et au pair à la date de maturité
Coupon 0.5 %
Intérêts Annuels, payables à terme échu le 25 mai de chaque année Base de calcul : ACT/ACT
Première date de jouissance 25/05/2020
Procédure d'émission Syndication pour la première émission, puis adjudication à la "hollandaise" pour les émissions suivantes
Caractéristiques juridiques RegS, 144A Les certificats des titres crées après le 1er janvier 2013 sont assortis de clauses d’action collectives (CAC) comme tous les titres obligataires de la zone euro, par conséquent non assimilables aux souches émises avant cette date.
Démembrable Oui
Encours 40.6 Md€

Frise chronologique des émissions

Code
library(ggrepel)

# Émissions groupées sur peu d'années (syndication + adjudications qui
# suivent) -> des étiquettes à décalage fixe (cf. list-OATi/list-OATeuroi)
# se chevauchent ; ggrepel les répartit automatiquement.
timeline <- FR0013515806 |>
  arrange(date_emission) |>
  mutate(label = paste0(round(volume_emis / 1e9, 1), " Md€ - ", format(date_emission, "%b %Y")))

ggplot(timeline, aes(x = date_emission, y = 0)) +
  geom_hline(yintercept = 0, color = "grey70") +
  geom_point(aes(size = volume_emis / 1e9, color = taux_moyen_pondere)) +
  geom_text_repel(aes(y = 0, label = label), size = 3, lineheight = 0.9,
                   min.segment.length = 0, segment.color = "grey70",
                   direction = "y", force = 2, max.overlaps = Inf,
                   ylim = c(-Inf, Inf)) +
  scale_size_continuous(range = c(3, 13), guide = "none") +
  scale_color_viridis_c(option = "C", name = "Taux moyen\npondéré (%)") +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  theme_minimal(base_size = 13) +
  theme(axis.title.y = element_blank(), axis.text.y = element_blank(),
        axis.ticks.y = element_blank(), panel.grid.major.y = element_blank(),
        panel.grid.minor = element_blank(), legend.position = "bottom") +
  labs(x = NULL, title = paste("Historique des émissions -", FR0013515806_info$title),
       subtitle = "Taille des points = volume émis ; couleur = taux moyen pondéré")

Taux obtenu vs taux de marché (France 20Y)

Code
market_window <- market_30y |>
  filter(Date >= min(FR0013515806$date_emission) - 90, Date <= Sys.Date())

ggplot() +
  geom_line(data = market_window, aes(x = Date, y = market_yield, color = "France 20Y (marché)")) +
  geom_point(data = emissions_vs_market,
             aes(x = date_emission, y = taux_moyen_pondere, size = volume_emis / 1e9,
                 color = "Taux obtenu (FR0013515806)")) +
  scale_color_manual(values = c("France 20Y (marché)" = "grey50",
                                 "Taux obtenu (FR0013515806)" = "#1B3F8B"), name = NULL) +
  scale_size_continuous(range = c(2, 8), name = "Volume émis (Md€)") +
  theme_minimal(base_size = 13) +
  theme(legend.position = "bottom") +
  labs(x = NULL, y = "Taux (%)",
       title = "Taux obtenu à l'émission vs rendement OAT 20 ans de marché",
       subtitle = paste0("Rendement France 20Y au ", format(max(market_window$Date), "%d/%m/%Y"),
                          " : ", round(tail(market_window$market_yield, 1), 2), " %")
  )

Tenor de marché le plus proche de la maturité d’origine du titre (émis en 2020 pour une maturité 2040, soit ~20 ans).

Écart (en points de base) entre le taux moyen pondéré obtenu à chaque émission et le rendement OAT 20 ans de marché à la date la plus proche :

Code
emissions_vs_market |>
  transmute(`Date` = date_emission, `Type d'opération` = type_operation,
            `Taux obtenu (%)` = taux_moyen_pondere, `Taux marché France 20Y (%)` = market_yield,
            `Écart (pb)` = spread_bp) |>
  gt() |>
  fmt_date(columns = `Date`, date_style = "iso")
Date Type d'opération Taux obtenu (%) Taux marché France 20Y (%) Écart (pb)
2020-05-27 Syndication 0.53 0.5010 3
2020-10-01 Adjudication 0.17 0.1650 1
2021-01-07 Adjudication 0.10 0.1040 0
2021-03-04 Adjudication 0.43 0.4140 2
2021-05-06 Adjudication 0.62 0.5910 3
2021-07-01 Adjudication 0.62 0.5740 5
2022-01-06 Adjudication 0.69 0.6490 4
2022-05-05 Adjudication 1.83 1.8810 -5
2022-12-01 Adjudication 2.55 2.5830 -3
2024-02-01 Adjudication 3.07 3.1010 -3
2024-09-05 Adjudication 3.23 3.2480 -2
2024-12-05 Adjudication 3.17 3.1920 -2
2025-08-07 Adjudication 3.70 3.8534 -15
2025-12-04 Adjudication 3.89 4.1258 -24
2026-01-08 Adjudication 3.95 4.1697 -22
2026-09-03 Adjudication 4.51 4.7288 -22

Prix moyen pondéré à l’émission

Code
price_data <- FR0013515806 |> arrange(date_emission)

ggplot(price_data, aes(x = date_emission, y = prix_moyen_pondere)) +
  geom_hline(yintercept = 100, linetype = "dashed", color = "grey60") +
  geom_line(color = "grey70") +
  geom_point(aes(size = volume_emis / 1e9, color = taux_moyen_pondere)) +
  geom_text_repel(aes(label = paste0(round(prix_moyen_pondere, 2), " - ", format(date_emission, "%b %Y"))),
                   size = 3, min.segment.length = 0, segment.color = "grey70",
                   max.overlaps = Inf) +
  scale_size_continuous(range = c(3, 13), name = "Volume émis (Md€)") +
  scale_color_viridis_c(option = "C", name = "Taux moyen\npondéré (%)") +
  scale_x_date(date_labels = "%Y", date_breaks = "2 years") +
  theme_minimal(base_size = 13) +
  theme(legend.position = "bottom") +
  labs(x = NULL, y = "Prix moyen pondéré (% du nominal)",
       title = paste("Prix moyen pondéré à l'émission -", FR0013515806_info$title),
       subtitle = "Taille = volume émis ; couleur = taux moyen pondéré ; pointillés = pair")

Détail par émission

Code
FR0013515806 |>
  arrange(date_emission) |>
  transmute(`Date` = date_emission, `Type d'opération` = type_operation,
            `Volume émis` = volume_emis, `Prix moyen pondéré` = prix_moyen_pondere,
            `Taux moyen pondéré (%)` = taux_moyen_pondere) |>
  gt() |>
  tab_header(title = "Historique des émissions") |>
  fmt_date(columns = `Date`, date_style = "iso") |>
  fmt_number(columns = `Volume émis`, decimals = 0) |>
  grand_summary_rows(columns = `Volume émis`, fns = list(Total = ~ sum(.)), fmt = ~ fmt_number(., decimals = 0))
Historique des émissions
Date Type d'opération Volume émis Prix moyen pondéré Taux moyen pondéré (%)
2020-05-27 Syndication 7,000,000,000 99.53 0.53
2020-10-01 Adjudication 2,905,000,000 106.39 0.17
2021-01-07 Adjudication 3,880,000,000 107.64 0.10
2021-03-04 Adjudication 2,344,000,000 101.25 0.43
2021-05-06 Adjudication 1,800,000,000 97.89 0.62
2021-07-01 Adjudication 2,607,000,000 97.95 0.62
2022-01-06 Adjudication 1,796,000,000 96.74 0.69
2022-05-05 Adjudication 2,268,000,000 79.66 1.83
2022-12-01 Adjudication 1,060,000,000 71.43 2.55
2024-02-01 Adjudication 2,296,000,000 67.41 3.07
2024-09-05 Adjudication 2,233,000,000 66.83 3.23
2024-12-05 Adjudication 1,966,000,000 67.78 3.17
2025-08-07 Adjudication 2,175,000,000 64.02 3.70
2025-12-04 Adjudication 1,604,000,000 63.06 3.89
2026-01-08 Adjudication 2,757,000,000 62.73 3.95
2026-09-03 Adjudication 1,860,000,000 59.62 4.51
Total — — 40,551,000,000 — —

Tableau interactif

Code
FR0013515806 |>
  arrange(date_emission) |>
  transmute(`Date` = date_emission, `Type d'opération` = type_operation,
            `Volume émis` = volume_emis, `Prix moyen pondéré` = prix_moyen_pondere,
            `Taux moyen pondéré (%)` = taux_moyen_pondere) |>
  gt() |>
  fmt_date(columns = `Date`, date_style = "iso") |>
  fmt_number(columns = `Volume émis`, decimals = 0) |>
  opt_interactive(use_search = TRUE, use_filters = TRUE, use_sorting = TRUE,
                   use_resizers = TRUE, use_highlight = TRUE,
                   use_compact_mode = TRUE, use_page_size_select = TRUE)