Sub transforme()
Dim cel As Range 'déclaration de la variable cel
Dim derlgn As Integer 'déclaration de la variable derlgn
derlgn = Range('A100').End(xlUp).Row 'on recherche la dernière ligne non vide en partant de la ligne 100
For Each cel In Range('A1:A' & derlgn)'on boucle sur l'ensemble des cellule de la plage A1:A derlgn
cel.Offset(0, 1) = Mid(cel, 1, Len(cel) - 1)'on affecte a la cellule a coté la valeur de la cellule cel moins un caractère
Next 'suite de la boucle
End Sub