library(stringr)
df <- data.frame(ID = c("A1", "A2", "A3"),
            Strings = c("INGÉNIEUR AGRO. (+ DEA pédologie + IAE). 27 ans whatever whatever.",
                        "ARCHITECTE DPLG 29 ans. 6 ans d’exp. prof, blablablabla",
                        "PROJETEUR-COMPOSITEUR- ARCHITECTURE 32 ans."))

df$Job <- str_extract(df$Strings, '^[\\p{L}\\s-]*\\p{L}')
df$Job