bonjour,
pour récupérer la derniére cellule vide et incrémenter
Private Sub UserForm_Initialize()
ligne = Range("A65536").End(xlUp).Row
numero = Left(Cells(ligne, 1).Value, 1) & Format(Right(Cells(ligne, 1).Value, 7) + 1, "0000000")
ComboBox1.AddItem (numero)
End Sub