bonjour a tous

dans un formulaire, j'ai 10 box qui porte le nom :
nom1, nom2, etc jusqu'à nom10

lors de l'iinitialisation du formulaire, je met ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
nom1.RowSource = "source!n2:n" & Range("source!n65536").End(xlUp).Row
     nom1.MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante
     nom1.MatchRequired = True 'pour forcer une saisie correct
existe-t-il un moyen de ne pas repeter 10 fois ce code ?