Une solution avec une macro évènementielle.
- Clic droit sur l'onglet de la feuille
- Visualiser le code
- Copier la procédure suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False
Target = Right(Target, Len(Target) - 2)
Application.EnableEvents = True
End If
End Sub
Ce code enlève les 2 premiers caractères d'une valeur à chaque fois qu'elle est entrée en colonne A.