Sub Extraire_Arrivées()
On Error GoTo Extraire_Arrivées_Erreur
Application.ScreenUpdating = False
Worksheets("Demandes").Unprotect
Worksheets("Accueil").Unprotect
Range("Demandes").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("Critères"), CopyToRange:=Range("Extraction"), Unique:=False
Application.ScreenUpdating = True
Worksheets("Demandes").Range("A4").AutoFilter
Worksheets("Demandes").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Worksheets("Accueil").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Accueil").EnableSelection = xlNoSelection
Extraire_Arrivées_Exit:
Exit Sub
Extraire_Arrivées_Erreur:
MsgBox Error$
Resume Extraire_Arrivées_Exit
End Sub