Modifier des cellules sans ajouter de colonne supplémentaire ?

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
 
dl = Range("A65536").End(xlUp).Row 'définit la dernière ligne éditée de la colonne A
For Each cel In Range("A2:A" & dl) 'boucle sur toutes les cellules éditées cel de la colonne A
    'si le dernier caractère de la cellule est un "a", supprime le "a"
    If Right(cel.Value, 1) = "a" Then cel.Value = Mid(cel.Value, 1, Len(cel.Value) - 1)
Next cel 'prochaine cellule de la boucle
End Sub