Bonsoir,
Une petite macro
Sub InsereListBox()
Application.ScreenUpdating = False
Cells.Select
Selection.RowHeight = 24
Range("a1").Select
a = 7.5
b = 3
For i = 1 To 179
Cells(i, 1).Select
ActiveSheet.DropDowns.Add(a, b, 202.5, 15.75).Select
With Selection
.ListFillRange = "" 'la liste des valeurs
.LinkedCell = "$E$" & i
.DropDownLines = 8
.Display3DShading = False
End With
b = b + 24
Next i
Range("a1").Select
Application.ScreenUpdating = True
End Sub
@+
Ronan