XL 2010 Simplifier le code

Dim z As Byte, J As Byte, i As Byte
With Sheets("ESSAI")
  .[A4:J140].Clear
  .[A4] = TextBox1.Value
   .[A4:b4].Interior.ColorIndex = 15
    z = 5: J = 1
  For i = 6 To 135
  If Me("TextBox" & i) <> "" Then
  .Cells(z, 2) = Me("TextBox" & i).Value
  z = z + 1
    End If
  If i = 31 Or i = 57 Or i = 83 Or i = 109 Then
  J = J + 1
  Cells(z, 1).Resize(, 2).Interior.ColorIndex = 15
  Cells(z, 1) = Me("TextBox" & J).Value: z = z + 1
  End If
  Next i
  End With