[VBA] alimentation d'une listeBox

Bonjour,
J'alimente une listbox avec un tableau.
Le probleme vien du fait quand je met l'anglet en caché j'ai un message d'erreur.
ca vient du select de l'anglet.
Mais sans se select j'ai une listbox vide :

Sheets("Tableau_Travail").Select

With Worksheets("Tableau_Travail") 'ouverture del'anglet Table de travail

'saisi des liste a partir des tables de travaille

For i = 2 To 500
If Not IsEmpty(Cells(i, 1)) Then
region.AddItem .Cells(i, 1).Value
End If

Next i
Help plz!!

Configuration: Windows XP
Safari 530.5