Sub Impression_SelectionSpéciale()
Dim Inc As Integer, Ind As Integer, TabS() As String
' Initialiser l'incrément
Inc = 1
' Pour chaque feuille du classeur
For Ind = 1 To ThisWorkbook.Sheets.Count
' Si la feuille n'est pas Accueil
If Sheets(Ind).Name <> "Accueil" Then
' Si la feuille n'est pas masquée
If Sheets(Ind).Visible = True Then
' Si la feuille est STOP on sort de la boucle
If Sheets(Ind).Name = "STOP" Then Exit For
' Redimensionner le tableau en gardant les valeurs
ReDim Preserve TabS(1 To Inc)
' Ajouter le nom de la feuille au tableau
TabS(Inc) = Sheets(Ind).Name
' Ajouter 1 à l'incrément
Inc = Inc + 1
End If
End If
Next
' Four chaque feuille du tableau
For Ind = 1 To UBound(TabS)
' Sélectionner la feuille en question sans remplacer la précédente sélection
Sheets(TabS(Ind)).Select Replace:=(Ind = 1)
Next Ind
' Imprimer les feuilles sélectionnées
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub