Dim Plage as range,arrcolumns
Set plage = Sheets("Baux").[A1:H1000]
arrcolumns = Array(7, 8, 1) 'colonne G H et A
With ComboBox1
.ColumnCount = 3
.ColumnWidths = "50;50;0"
.List = Application.Index(plage.Value, Evaluate("ROW(1:" & plage.Rows.Count & ")"), arrcolumns)
End With