Je viens de finir un code me permettant à partir d'une userform d'éditer plusieurs documents différents. L'ensemble fonctionne, mais ayant bidouillé le tout à partir de bouquins, il me faut l'alléger. Pour gagner 2000 lignes je cherche comment reprendre dans plusieurs listes déroulantes les mêmes données. En effet j'ai du définir pour chaque liste les mêmes valeurs, jusqu'à 15 fois. Par exemple, cela donne:

Private Sub sValeur_initialize()

With sujet1
   .AddItem "je"
   .AddItem "tu"
   .AddItem "il"
End With
  
With sujet2
   .AddItem "je"
   .AddItem "tu"
   .AddItem "il"
End With

End Sub

Merci à tous pas avance