Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
With Sheets("Admis").[B10:I109]
.ClearContents: .Borders.LineStyle = xlNone
End With
Sheets("Base").[A1:AA200].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[T1:T3], CopyToRange:=[B9:J9]
[B9].CurrentRegion.Sort Key1:=[G10], Header:=1, Order1:=1
Sheets("Bilan").[R10:Y20].Copy
With Sheets("Admis").Range("B" & Rows.Count).End(xlUp).Offset(3, 0): .PasteSpecial 7: End With
Application.Goto [A9], -1
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_Deactivate()
Application.DisplayFullScreen = False
End Sub