Merci Hervé pour avoir répondu à mon message.
Toutefois, et j'en suis désolé, je n'ai pas trouvé de réponse à mes petits soucis.
Sachant que le code serait:
...
With Sheets("Stocks").Range("A1")
Manut.rowsource = range(.cells,.end(xlDown).address(External:=true)
Manut1.rowsource = range(.cells,.end(xlDown).address(External:=true)
Manut2.rowsource = range(.cells,.end(xlDown).address(External:=true)
End With
...
Manut; Manut1, Manut2... étant des listbox
Comment faire pour arriver à un code qui serait à peu près comme ceci:
For Nom_manut = 1 to 100
With Sheets("Stocks").Range("A1")
Nom_manut.rowsource = range(.cells,.end(xlDown).address(External:=true)
End With
Next
Merci à tous ceux que pourront m'aider à trouver une solution.
Goutedo