Bonjour Daniel, bonjour le forum,
Une proposition VBA. J'ai considéré que les données brutes se trouvent dans la Colonne A d'un onglet nommé Feuil1. À adapter...
Le code :
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 PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim I As Integer 'déclare la variable I (Incrément)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Range("A" & Application.Rows.Count).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'ongelt O
Set PL = O.Range("A1:A" & DL) 'définit la plage PL
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
If InStr(1, CEL.Value, " ET ", vbTextCompare) <> 0 Then 'condition : si la valeur de la cellule contient " ET "
CEL.Offset(0, 1).Value = Split(CEL.Value, " ET ")(1) 'renvoie la partie après le "ET " dans la cellule en colonne 2
CEL.Value = Split(CEL.Value, " ET ")(0) 'renvoie la partie avant le " ET " dans la cellule en colonne 1
End If 'fin de la condition
Next CEL 'prochaine cellule de la boucle
End Sub