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