A friend gave me the answer :


Code:
--------------------



Public Sub Worksheet_Activate()
With ComboBox1
.Clear

.AddItem "Nord"
.AddItem "Lebourgneuf"
.AddItem "Henri IV/Blvd Hamel"
.AddItem "Ste-Foy Périphérie"
.AddItem "Blvd Laurier"
.AddItem "Haute-Ville/Colline Parlementaire"
.AddItem "Vieux-Québec/Vieux-Port"
.AddItem "Couronne Centre-Ville"
.AddItem "St-Roch"
.AddItem "Autres"

.ListIndex = 0
End With

End Sub


--------------------


--
Werner
------------------------------------------------------------------------
Werner's Profile: http://www.excelforum.com/member.php...o&userid=24304
View this thread: http://www.excelforum.com/showthread...hreadid=391410