Recherche et suppression text entre crochet

Sub suppression()
For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants)
    c = c.Replace("[*]", "")
Next c
End Sub

Sub suppression()

If InStr(ActiveCell.Value, "[") <> 0 Then _
    ActiveCell.Value = Trim(Split(ActiveCell.Value, "[")(0))
End Sub

Sub suppression()
Cells.Replace "[*]", "", xlPart
End Sub

Sub Macro1()
    Selection.Replace What:="[*]", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

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

Sub Suppression()
If Selection.SpecialCells(xlCellTypeConstants, 2) Like "*" & "[[]*[]]" & "*" Then
Selection.SpecialCells(xlCellTypeConstants, 2) = Split(Split(Selection.SpecialCells(xlCellTypeConstants, 2), "[")(0) & Split(Selection.SpecialCells(xlCellTypeConstants, 2), "[")(1), "]")(0)
End If
End Sub

Sub Suppression()
Dim ws As Worksheet
Set ws = Worksheets(ActiveSheet.Name)

Dim cel As Range
Set cel = Selection.SpecialCells(xlCellTypeConstants, 2)

'cel.Select

For Each cel In cel
    'cel.Select
    If cel Like "*" & "[[]*[]]" & "*" Then
        cel = Split(Split(cel, "[")(0) & Split(cel, "[")(1), "]")(0)
    ElseIf cel Like "*" & "[[]" & "*" Then
        cel = Split(cel, "[")(0) & Split(cel, "[")(1)
    ElseIf cel Like "*" & "[]]" & "*" Then
        cel = Split(cel, "]")(0)
    End If
Next cel

Set ws = Nothing
Set cel = Nothing

End Sub

Sub suppression()
Dim t$
t = "[*]"
Cells.Replace " " & t, "", xlPart
Cells.Replace t & " ", ""
Cells.Replace t, ""
End Sub