bonjour
j'ai le macro suivant qui copie un tableau et le coller dans un nouveau fichier excel
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
 
    Range("Tableau1").Copy
    Workbooks.Add
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Feuil1").Name = "GR"
    Range("A1").Select
 
End Sub
svp comment ajouter ce module classe d'une façon automatique dans ce nouveau fichier excel "Feuil1" juste après l’exécution du macro 2

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
       ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:=Range("A1")
  End If
 
Range("A1").Select
End Sub