Pour proposer une version avec array, voici un autre code.
Les fonctions sont tirées du site de Boisgontier, la seconde est juste adaptée.
Private Sub UserForm_Initialize()
With Me
.cbMod.List = Array("Modification Convoi", "Modification Horaire", "Modification Roulement", "Modification...