Microsoft 365 copie coller avec conditions en vba

[Acher12]

Bonjour,
je voudrais bien avoir votre aide sur un développement en vba:
Problématique
j'ai un tableau à remplir automatiquement,
j'ai une base avec des colonnes en mois
je veux dans une autre feuille , dans la cellue A2 avoir un filtre en selectionnant le mois choisi, il copie les données pour ce mois ( une plage pas toute la colonne).
D'avance merci pour votre aide
merci
Je vous joins un fichier simple

 

[Cousinhub]

Bonjour,
Sans macro, mais une formule :
Dans la cellule E5 de l'onglet Recap :

=FILTRE(data!F5:Q7;(data!F4:Q4=Recap!D3))

Bonne journée

 

[sylvanu]

Bonjour Acher, Cousinhub,
Une approche en VBA. Cette macro s'exécute automatiquement lorsqu'on change le mois en D3, avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [D3]) Is Nothing Then
        Application.ScreenUpdating = False
        DL = Cells(Cells.Rows.Count, "D").End(xlUp).Row
        Formule = "=SIERREUR(INDEX(data!$A$1:$Z$1000;EQUIV(D5;data!$E:$E;0);EQUIV($D$3;data!$4:$4;0));"""")"
        Range("E5:E" & DL).FormulaLocal = Formule
        Range("E5:E" & DL) = Range("E5:E" & DL).Value
    End If
Fin:
End Subv

En supposant que la colonne D en Type soit déjà en place.