impression sous conditions

Sub Imprime()
Dim i As Byte

For i = 1 To Sheets.Count
    If Sheets(i).Name ? 'Feuil3' Or Sheets(i).Name ? 'Feuil5' Or Sheets(i).Name ? 'Feuil7' Then
        Sheets(i).PrintOut
    End If
Next i
End Sub

Sub Imprime()
Dim ws As Worksheet

Application.DisplayAlerts = False
For Each ws In Worksheets
    If ws.Name Dif 'Feuil3' And ws.Name Dif 'Feuil5' And ws.Name Dif 'Feuil7' Then
    Sheets(ws.Name).Select (False)
    End If
Next

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.DisplayAlerts = True

End Sub