Extraire les chiffres de gauche avec une VBA

Bonsoir à tous,
Je sollicite votre aide pour lorsque j'écris en colonne C le n° de serie
je souhaiterai faire une VBA qui la colonne D affiche les 5 chiffres de la gauche.

Merci pour l'aide

Bonjour à tous !

Comme ceci

Sub test()
dl = Cells(Rows.Count, 3).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To dl
Cells(i, 4) = Right(Cells(i, 3), 5)
Cells(i, 4).NumberFormat = "00000"
Next i
Application.ScreenUpdating = True
End Sub

Bonne journée !

Bonsoir Nordik_Nation

j'essaie de l'appliquer dans mon fichier mais cela ne fonctionne pas.

Help

Merci pour l'aide

Bonjour le fil et le forum, voici ma proposition, dans le module de la feuille (pas dans un module standard, voir ici pour en savoir plus https://www.excel-pratique.com/fr/vba/evenements_feuille)

Private Sub Worksheet_Change(ByVal Target As Range)

     If Not Intersect(Target, Range("C:C")) Is Nothing Then
        With Target.Offset(0, 1)
            .Value = Right(Target.Value, 5)
            .NumberFormat = "00000"
         End With
      End If

End Sub

Merci Beaucoup pour l'aide Sequoyah et Nordik_Nation

c'est exactement ça.

Bonne soirée