Sub Impression() 'Filtre la sélection des X et imprime
Application.ScreenUpdating = False
Worksheet_SelectionChange [E1]
' Lance l'impression
' ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Prévisualisation de l'impression
ActiveWindow.SelectedSheets.PrintPreview
Range("A2").Select
CreateObject("Wscript.shell").Popup "Impression envoyée à l'imprimante." & Chr(10) & Chr(10) & "Veuillez patienter Svp." & Chr(10) & Chr(10), 1, "APE Marguerittes", vbExclamation
Range("E2:E300").ClearContents
[E1].Value = ("Sel")
Columns("E").Select
With Selection
.HorizontalAlignment = xlCenter
End With
Worksheet_SelectionChange [E1]
Application.ScreenUpdating = True
End Sub