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