Sub Essai()
Dim Tbl, n&: Application.ScreenUpdating = 0
n = Cells(Rows.Count, 1).End(3).Row
If n = 1 Then Exit Sub
Dim chn$, i&: n = n - 1: Tbl = [A2].Resize(n)
For i = 1 To n
chn = Tbl(i, 1)
If Len(chn) > 1 Then Tbl(i, 1) = Mid$(Tbl(i, 1), 2)
Next i
[A2].Resize(n) = Tbl
End Sub