Bonjour,

J'ai besoin que 7 feuilles soient les 7 premières du classeur pour exécuter un traitement.
J'ai utilisé ce code.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
nbFeuilles = ThisWorkbook.Sheets.Count
 
Sheets("A1").Move after:=Sheets(nbFeuilles)
Sheets("A2").Move after:=Sheets(nbFeuilles)
Sheets("A3").Move after:=Sheets(nbFeuilles)
Sheets("A4").Move after:=Sheets(nbFeuilles)
Sheets("A5").Move after:=Sheets(nbFeuilles)
Sheets("A6").Move after:=Sheets(nbFeuilles)
Sheets("A7").Move after:=Sheets(nbFeuilles)
 
While Sheets(1).Name <> "A1"
Sheets(1).Move after:=Sheets(nbFeuilles)
Wend
je me dis qu'il existe sûrement une méthode plus "élégante" peut-être avec une variable tableau, variable que je n'ai jamais utilisée.

Merci d'avance à ceux qui me répondront.

Bruno