Sub AddSerialNumbers()
Dim i As Integer On Error GoTo Last
i = InputBox("Enter Value”, "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last:Exit Sub End Sub

Ce code de macro vous aidera à ajouter automatiquement des numéros de série dans votre feuille Excel, ce qui peut vous être utile si vous travaillez avec des données volumineuses.
Pour utiliser ce code, vous devez sélectionner la cellule à partir de laquelle vous souhaitez commencer les numéros de série et lorsque vous l’exécutez, il vous montre une boîte de message dans laquelle vous devez entrer le nombre le plus élevé pour les numéros de série et cliquez sur OK. Et une fois que vous avez cliqué sur OK, il exécute simplement une boucle et ajoute une liste de numéros de série aux cellules vers le bas.