VBA Range("A1") pas dans la bonne feuille

Bonjour,

Dans un fichier XL (sous office 2000) , Feuil1, A1, texte=A1 ; Feuil2, A1, texte=A2

Un ptit bouton dans Feuil1, code vba :

For Each NomsSheets In Worksheets
NomsSheets.Activate
NomsSheets.Select
MsgBox Range("A1").Value
'ou Cells(1,1).Value
next

me donne "A1" puis "A1" ... à croire que malgré le nomssheets.activate et nomssheets.select (qui fonctionne, vu qu il m affiche bien la feuille "Feuil2" dans mon XL), celle ci n est pas active pour vba....

alors que
MsgBox ActiveSheet.Range("A1").Value

me donne bien "A1" et "A2" ....

Grrrrr

Là c est un ptit exemple avec 1 seule ligne range... mais j'en ai des lignes et des lignes !!!.. Je voudrais pas ajouter 'ActiveSheet.' à chaque 'Range' ou 'Cells' de mon code ; ni un '.Range' ou '.Cells' qui marche avec le with....

En gros ma question : pourquoi un range("A1") se rapporte toujours à la feuille 1 malgré que ce soit une autre feuille active, et si possible, comment y remédier (que range("A1") se réfère à la feuille active)

Merci




N'hésitez pas à poser des questions, il vaut mieux être con 5 min que le rester toute sa vie ;)
N'oubliez pas de mettre votre Post en 'Résolu' quand c'est le cas :-D