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 : Sélectionner tout - Visualiser dans une fenêtre à part
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