Dim Plage As String
Me.ComboBox1.ColumnCount = 2
Me.ComboBox1.ColumnWidths = "100;40"
With Sheets("Références")
For Each Cel In .Range("d7:d488")
If Cel = "" Then
Me.ComboBox1.AddItem Cel.Offset(0, -1)
Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = Cel.Row
End If
Next
End With