Private Sub CommandButton1_Click()
'Bouton_Générateur
Dim R As String
Dim L As Long
Dim Entree As String * 10
Dim Chaine As String * 5
Dim Num As Double
Dim i As Integer
Dim x As Byte
L = Range("A65536").End(xlUp).Row
'Dernière entrée
Entree = Cells(L, 1).Value
'Partie alphabétique
Chaine = Left(Entree, 7)
'Partie numérique
Num = Val(Mid(Entree, 8, 5))
'Nouvelle entree
For x = 1 To 30
Entree = Chaine & String(5 - Len(CStr(Num + x)), "0") & CStr(Num + x)
Cells(L + x, 1).Value = Entree
Next x
End Sub