Bonjour,

List1.ListIndex = 0 'c'est plus simple
List1.Selected(0) = True

ensuite c'est le Click de l'utilisateur qui sélectionne

Courage