re,
Ok la c'est bon cool , comment regler se probleme du coup a ce que chaque ligne soit differente
et l'endroit de la liste cela peu se modifier ?
avec une liste de votre choix,
Private Sub Workbook_Open()
liste = Array("aaaa", "bbbbb", "ccccc", "ggggg", "jjjjj")
With ActiveSheet.ComboBox1
For i = LBound(liste) To UBound(liste)
.AddItem liste(i)
Next
End With
End Sub