Remplir combobox sur un classeur

[Itori]

Bonjour le forum,

Je souhaite remplir des combobox dans un classeur avec des données provenant d'un classeur fermé.
Grâce au forum j'ai trouvé comment aller chercher mes données etc...

Cependant je dispose d'un nombre de combobox variant, je souhaite donc faire une boucle puisqu'elles comportent toujours les même données.
J'ai donc réalisé le code suivant :

Dim Ctrl As Shape

...

    If Not Rs.EOF Then
    Do While Not Rs.EOF
        ActiveSheet.lst_directeurmiss.AddItem Rs.Fields(0)
        ActiveSheet.lst_respaff.AddItem Rs.Fields(0)
        
        For Each Ctrl In ActiveSheet.Shapes
        If Ctrl.Name Like "lst_perso*" Then
            Ctrl.AddItem Rs.Fields(0)
        End If
        Next
        
    Rs.MoveNext
    Loop

Jusqu'à maintenant j'utilisait un nombre défini de combobox et j'utilisait donc la même méthode qu'avant ma boucle For Each, ce qui fonctionnait parfaitement...

Auriez vous une solution svp ?
Merci d'avance.