Bonjour Brice59
Le code donné précédemment, te permet de créer jusqu'à 26 niveau (lettres de l'alphabet)
Il suffit de changer le code d'initialisation
Private Sub UserForm_Initialize()
Dim i As Integer, J As Integer
For i = 0 To 7
CboxNbNiveau.AddItem i
Next i
' Pour chaque Travée
For i = 1 To 8
' Pour chaque niveau
For J = 1 To 8
Me.Controls("CboxNiveau" & i).AddItem J
Next J
Me.Controls("CboxNiveau" & i).Value = 8
Next i
End Sub
Et de choisir ensuite le niveau dans les combobox
A+