Bonjour,
Une solution avec VBA
Sub Modifier()
Dim Tablo
Dim Ligne As Long
With Worksheets("Postes223")
For Ligne = 1 To .Range("A" & Rows.Count).End(xlUp).Row
On Error Resume Next
Tablo = Split(.Range("A" & Ligne), ",,,")
.Range("A" & Ligne) = Tablo(1) & Right(Tablo(0), Len(Tablo(0)) - InStr(Tablo(0), "-") + 1)
Next Ligne
End With
End Sub
A+