Sub sortir()
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
AfficherBO
ActiveWorkbook.Save
[COLOR="Red"]If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close[/COLOR]
End Sub