Bonjour.
Un peu nébuleux tout ça.
Ça passe probablement par une Private RngBD As Range en tête de l'UserForm, et dans l'UserForm_Initialize:
Set RngBD = Workbooks(x),Worksheets(y).Range(z)
Après vous faites ce que vous voulez de RngBD sans avoir besoin de répéter tout ça mais en utilisant des RngDB.Rows(L), RngBD.Columns(C), RngBD.Cells(L, C)