Bonjour,
Comme je vois pas d'autre solution, juste une petite macro qui te fera çà très bien :
Sub Incrementation()
For i = 1 To 1500
Range("Debut").Offset(i - 1, 0) = "A" & Right("000" & CStr(i), 4) & "B"
Next
End Sub
A copier dans un module.
Il faut que tu nommes "Debut" la 1ère cellule de ta liste.
@+