Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsNumeric(Sh.Name) Then Exit Sub
Application.ScreenUpdating = False
Sh.Rows("12:" & Sh.Rows.Count).Delete 'RAZ
With Sheets("Général")
With .Range("A10:X" & 10 + Application.Count(.Columns(1)))
.AutoFilter 5, Sh.Name 'filtre automatique
.Copy Sh.[A11] 'copier-coller, attention il y a un décalage par rapport à la source
With .SpecialCells(xlCellTypeVisible)
If .Areas.Count = 1 Then Sh.[A11].Resize(.Rows.Count, 24) = .Value 'copie uniquement les valeurs
End With
.AutoFilter 'ôte le filtre
End With
End With
End Sub