Sub suppression()
MsgBox Cells(2, 2)
MsgBox Split(Split(Cells(2, 2), "[")(0) & Split(Cells(2, 2), "[")(1), "]")(0)
'exemple en ligne 4 colonne B le resultat de la ligne 2 colonne 2 :
Cells(4, 2) = Split(Split(Cells(2, 2), "[")(0) & Split(Cells(2, 2), "[")(1), "]")(0)
End Sub