itération ajustement cellules

Bonsoir

j'aimerai procéder à une mise en page (équilibrage de la taille des cellules par rapport aux données qu'elles contiennent) sur
plusieurs feuilles xls (40 pages)
j'ai écris ce code mais cela ne fonctionne pas, (erreur d'éxecution 1004 ) un regard extérieur me serait de la plus grande aide

Code:

---

1 2 3 4 5 6

Sub test()   For i = 1 To 40   Worksheets(i).Range("A1:I150").Select ' taille du tableau de données contenu entre cellules A1 et I150 Selection.Columns.AutoFit

---

merci d'avance

Salut volubiliss et le forum

Code:

---

1 2 3 4 5 6

Sub test() Dim I As integer For I = 1 To 2 Worksheets(I).Range("A1:I150").Columns.AutoFit Next I End Sub

---

Quand tu arrêteras d'utiliser les Select/Selection...
Je n'ai créé que deux feuilles pour tester. Vérifies que le nombre de feuilles est égal (ou supérieur) au nombre max que peut atteindre ta variable.
A+

bonsoir Gorfael
en effet il va falloir que j'arrête d'être obnubilé par les select !!
merci pour ton aide