Const Base as integer = 2000 Const AuBout as integer = 500 Sub 2500Numéros() dim AGgauche as string = "80A " dim ADroite as string = String.empty dim Nombre as integer = 0 Dim Numéro as string = string.empty for i as integer = 1 to AuBout Nombre = nombre + i ADroite = (Base +Nombre ).tostring Numéro = string.concat(AGauche,ADroite) Nombre +=1 next end sub