Private Sub Worksheet_Activate()
Dim Derlig As Long
Application.ScreenUpdating = False
'Application.EnableEvents = False
Cells.Clear
With Sheets("Feuil1")
.[T2] = Choose(InputBox("Choisir le critère?" & Chr(13) & "1=En cours, 2=Annulé, 3=En attente", "Filtre", 1), "En cours", "Annulé", "En attente")
Derlig = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:C" & Derlig).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.[T1:T2], _
Unique:=True
.Range("A1:C" & Derlig).SpecialCells(xlCellTypeVisible).Copy
End With
ActiveSheet.[A1].Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").ShowAllData
Application.ScreenUpdating = True
' Application.EnableEvents = True
End Sub