copier coller avec filtre

[jean123]

Bonjour a tous
je bloque sur un truc qui va vous paraitre surement tout bête
j'ai dans un classeur des données sur la feuille 1 de la colonne A à AA, dans la colonne E j'ai des date (format 01/01/2016)
je souhaite filtrer la colonne E pour les dates du mois en cour, copier les ligne visible de A à AA et les coller dans la feuille 2 (qui et vide de base )

j'ai essayé plusieurs chose en vba mais sans résultat (je bloque surtout sur le filtre)

un grand merci par avance pour votre aide

 

[DoubleZero]

Bonjour, jean123, le Forum,

Comme ceci ?

Option Explicit
Sub Mois_en_cours_transférer()
    Sheets("Feuil2").Range("a:aa").Clear
    With Sheets("Feuil1")
        .Range("e1").AutoFilter
        .Range("a1:aa65000").AutoFilter Field:=5, Criteria1:= _
           xlFilterThisMonth, Operator:=xlFilterDynamic
        .Range("e1").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil2").Range("a1")
        .Range("e1").AutoFilter
    End With
End Sub

A bientôt 🙂