Bonjour Nemo, bonjour le forum,
Par formule je ne sais pas mais par VBA, si les données sont dans la colonne A, ça donnerait :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim V As String 'déclare la variable V (Valeur)
Set O = Worksheets("Feuil1") 'défnit l'onglet O (à adapter)
DL = O.Range("A" & Application.Rows.Count).End(xlUp).Row 'définit la dernìere ligne éditée DL de la colonne A de l'onglet O
For I = 1 To DL 'boucle sur les lignes I de 1 à DL
V = Cells(I, 1).Value 'définit la valeur V
Cells(I, 2).Value = Split(V, "_")(3) 'renvoie dans la cellule colonne 2 (=B) le texte entre le troisième et le quatrième underscore (voir aide fonction Split)
Cells(I, 3).Value = Split(V, "_")(4) 'renvoie dans la cellule colonne 3 (=C) le texte entre le quatrième et le cinquième underscore (voir aide fonction Split)
Next I 'prochaine ligne de la boucle
End Sub