Bonjour et bienvenue
Place ce code dans la feuille concernée (click droit sur l'onglet ==> Visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
'Colonne à adapter (ici colonne A)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Len(Target) = 2 Then Target = "000" & Target
If Len(Target) = 3 Then Target = "00" & Target
If Len(Target) = 4 Then Target = "0" & Target
End If
End Sub
Ce code doit très certainement pouvoir être raccourci - Les pros me corrigeront.
Amicalement
Nad