"Looper" pour mettre des valeurs dans un combobox

[Shoppingsyl]

Bonjour,

J'ai deux menus déroulants, les valeurs du deuxième dépendent du choix du premier. Ces deux menus déroulants se répètent 7 fois par page d'une multipage de 7 pages. J'aimerais pouvoir "looper" la définition de ce que je mets dans ces menus plutôt que de répéter mon code 49 fois... Y a-t-il une façon? Voici un bout de mon code:

(premier menu = Boxcategij i = numéro du combobox, j = numéro de la page
deuxième menu = Boxtypeij)

Private Sub Boxcateg11_Change()
   If Boxcateg11.ListIndex = 0 Then
      Boxtype11.RowSource = "LISTES!A3:A8"
   ElseIf Boxcateg11.ListIndex = 1 Then
     Boxtype11.RowSource = "LISTES!G3:G6"
   End if
End sub

Mes autres combobox ne dépendent pas une de l'autre, alors j'ai défini le tout dans un "initialize" plutôt qu'un "change" en utilisant les controls:

Formsin.Controls("Boxcateg" & i & j).RowSource = "LISTES!XX:XX"

Mais là, je suis bloquée parce que je veux que ce soit fait sur un "change"!

Merci beaucoup pour votre aide!

Shoppingsyl