Sub PrincFiltre()
...
Application.ScreenUpdating = True ' <--- emplacement après correction
Select Case Err
Case 0: F.PrintPreview 'mettre printout, ça évite de consommer du papier
' et de l'encre pour rien
Case 1004: Msg = "Aucune date trouvée "
Case Else: Msg = "Vérifiez la saisie"
End Select
F.AutoFilterMode = False
Application.ScreenUpdating = True ' <--- emplacement avant correction
If Len(Msg) > 0 Then MsgBox Msg
End Sub