Private Sub UserForm_Initialize()
Dim cell As Range
With Sheets("Données")
For Each cell In .Range("A1 :A" & .Range("A65536").End(xlUp).Row)
ComboBox1.AddItem cell
ComboBox4.AddItem cell
ComboBox16.AddItem cell
ComboBox17.AddItem cell
ComboBox24.AddItem cell
ComboBox25.AddItem cell
ComboBox32.AddItem cell
ComboBox33.AddItem cell
Next
End With
Range("B18,C18,D18,E18,F18,G18,H18,I18,B19,C19,D19,E19,F19,G19,H19,I19,B20,C20,D20,E20,F20,G20,H20,I20,B21,C21,D21,E21,F21,G21,H21,I21").ClearContents
End Sub