Suppression cellule sous conditions

Sub Bouton1_Clic()
Application.ScreenUpdating = False
For i = 2 To Range("C65535").End(xlUp).Row
If Cells(i, 3) = "]" Then
    Range(Cells(i, 4), Cells(i, 5)).Cut Destination:=Range(Cells(i, 3), Cells(i, 4))
End If
Next i
Application.ScreenUpdating = True
End Sub

Sub es()
 Dim t, t1(), v As Byte, x As Long, i As Long, c As Byte
 t = Range("a2:e" & Cells(Rows.Count, 1).End(xlUp).Row)
 ReDim t1(1 To UBound(t), 1 To 5)
 For i = 1 To UBound(t)
 x = x + 1: v = 1
 For c = 1 To 5
 If t(x, c) <> "]" Then t1(x, v) = t(x, c): v = v + 1
 Next c: Next i
 Range("a2:e" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
 Range("a2:d" & x) = t1
End Sub