Pour sélectionner une seule feuille de calcul, vous pouvez utiliser la commande Sheets(“Feuil2”).Select. Si vous voulez quelques feuille supplémentaires, utilisez la macro suivante:

Sub SelectionPlusieursFeuille()
Sheets(Array("Feuil1", "Feuil2")).Select
End Sub

À l’aide de la fonction Array, vous pouvez créer un champ de données dans lequel vous pouvez inclure les noms des tables que vous souhaitez marquer.

Si cette solution doit être un peu plus dynamique, dans la tâche suivante, vous marquez toutes les feuilles d’un classeur à l’exception de la première feuille avec la macro suivante:

Sub Selectionnerplusiersfeuilles()
Dim nbreA As Long
Dim nbreB As Long
Dim TabArray() As Long
nbreB = ThisWorkbook.Worksheets.Count
ReDim TabArray(1 To nbreB - 1)
For nbreA = 2 To nbreB
TabArray(nbreA - 1) = nbreA
Next nbreA
ThisWorkbook.Worksheets(TabArray).Select
End Sub

Commentaires

■ Dans la première étape, déterminez le nombre total de feuille de calcul dans le classeur actif.

■ Utilisez ensuite l’instruction ReDim pour définir un champ de données avec la taille du nombre de feuilles dans le classeur. Vous soustrayez la valeur 1 de cette quantité déterminée, car vous ne souhaitez pas selectionner la première feuille.

■ Remplissez ensuite le champ de données dans une boucle. À la fin de la boucle, il y a les noms de toutes les feuilles dans le champ de données.

■ Sélectionnez ensuite toutes les feuilles dans le champ de données avec la méthode Select.