Re Salut Utna...
Pas sûr d'avoir capté ?
OUI of course ! mais je pense que tu cherches un truc plus compliqué que çà ?
L = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Plage = Sheets("Feuil1").Range("A2:A" & L).Address
ComboBox1.RowSource = "Feuil1!" & Plage
Feuil1 peut-être remplacée par n'importe quelle feuille... (existante !! de préférence)
L = Sheets("Utna").Range("A65536").End(xlUp).Row
Plage = Sheets("Utna").Range("A2:A" & L).Address
ComboBox1.RowSource = "Utna!" & Plage
...
@+Thierry