Affichage des données sur une nouvelle feuille

Bonjour à tous,

Je sollicite votre aide sur une macro qui est simple mais sur laquelle je bute car je débute dans le langage VBA.

J'ai mis en place un code qui me permet d'afficher des données en fonction d'un numéro agent et d'une date via un userform.

J'ai ensuite mis un bout de code qui me permet de recuperer ces données sur une nouvelle feuille avec comme nom feuille = num agent.

Cependant, j'aimerai uniquement selectionner les données filtrées et non faire un copier coller du tableau filtré.

J'ai testé plusieurs codes mais je n'aboutis pas à l'effet desiré.

Le fichier est en PJ.

Je vous remercie pour votre aide :)

Bonjour,

justement il faut faire un copié collé pour récupérer uniquement les données filtrées ;

et pas faire une copie d'onglet comme vous le faites actuellement.

Le problème c'est que vu ne nombre de lignes, la macro va vite devenir énergivore, ainsi que la taille du fichier.

A votre place je penserais au TCD tableaux croisés dynamique.

Private Sub CommandButton1_Click()

    Rows("2:2").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:L").AutoFilter Field:=3, Criteria1:=ComboBox1.Value, Operator:=xlFilterValues
    ActiveSheet.Range("A:L").AutoFilter Field:=4, Criteria1:=TextBox1.Value

    Columns("A:L").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Cells.Select
    Cells.EntireColumn.AutoFit
    ActiveSheet.Name = ComboBox1.Value
    Range("A1").Select
    Sheets("311_2023-03-14_TabEcheances").Range("A:L").AutoFilter Field:=3
    Sheets("311_2023-03-14_TabEcheances").Range("A:L").AutoFilter Field:=4
    UserForm1.Hide

End Sub