Bonjour,
je souhaite selectionner plusieurs feuilles en meme temps pr lancer une impression.
Voici mon code. L'erreur dit 'L'indice n'appartient pas a la selection' pour la ligne ThisWorkbook.Worksheets(liste).Select.
J'ai cherché sur internet, mais je ne vois pas pourquoi ca ne fonctionne pas , j'espere que quelqu'un pourra m'aider!
merci d'avance.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 j = 1
For i = 276 To 286       
             ReDim Preserve liste(j)
            liste(j) = Sheets("Administration").Cells(69, 11).Value + Sheets("Administration").Cells(i, 1).Value
 
Next
 
ThisWorkbook.Worksheets(liste).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True