Sub imprime()
Dim LigneDeFin As Long, NbPage As Integer
Dim Onglet As Worksheet
Dim Classeur As Workbook
'Initialise le classeur à traiter
Set Classeur = ThisWorkbook
'Scrute l'ensemble des feuilles du classeur
For Each Onglet In Classeur.Worksheets
'Si repère feuille imprimable
If Right(Onglet.Name, 1) = "_" Then
'Si au moins une cellule de renseignée
If WorksheetFunction.CountA(Onglet.Cells) > 0 Then
'Laissée ici mais pas forcément utile dans ce cas
'Recherche de la dernière ligne contenant quelque chose
LigneDeFin = Onglet.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If
' Si quelque chose à imprimer
If LigneDeFin > 0 Then
LigneDeFin = 0
'Incrémente le nombre de page
NbPage = NbPage + 1
'Multi selection des feuilles à imprimer
If NbPage = 1 Then
Onglet.Select
Else
Onglet.Select (False)
End If
End If
End If
Next
If NbPage > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False
End Sub