This is one way to do it
library(tidyverse)
df <- data.frame (
element = c("Autres produits d'exploitation 918,306"),
V2 = c("2"),
V3=c("676")
)
df %>%
mutate(temp = str_extract(element, "[\\d,]+$")) %>%
transmute(element = str_remove(element, "[\\d,]+$"),
v2 = paste(V2, V3, temp))
#> element v2
#> 1 Autres produits d'exploitation 2 676 918,306
Created on 2021-05-16 by the reprex package (v2.0.0)