Sub test_chr_formules()
With ActiveSheet
With .Cells(1, 1).Resize(255, 1)
.Formula = "=ROW()": .Value = .Value
End With
.Cells(1, 2).Resize(255, 1).FormulaR1C1 = "=CHAR(RC[-1])"
.Cells(1, 3).Resize(255, 1).FormulaR1C1 = "=CODE(RC[-1])"
.Range("A1:A31,A33:A47,A58:A64,A91:A96,A123:A255").EntireRow.Delete
End With
End Sub