Option Explicit
Sub Tst()
Dim Ws As Worksheet
Dim LastRow As Long
Dim Ar() As String, i As Long
For Each Ws In ThisWorkbook.Worksheets
LastRow = Ws.Range("A" & Rows.Count).End(xlUp).Row
If Ws.Name <> "Feuil3" And Ws.Name <> "Feuil4" Then
Ws.PageSetup.PrintArea = "$A$1:$B$" & LastRow
ReDim Preserve Ar(i)
Ar(i) = Ws.Name
i = i + 1
End If
Next Ws
Sheets(Ar()).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Feuil1").Select
End Sub