Sub export1()
Dim nomfich, nomfeuil, r As Range, mois As Byte, an, s As Range
'---préparation---
nomfich = "TOTO.xlsx" 'fichier destination, à adapter
nomfeuil = "MaFeuille" 'feuille destination, à adapter
With Feuil1 'CodeName de la feuille source
Set r = .Range("A3:D" & .Range("A" & .Rows.Count).End(xlUp)(3).Row)
If IsDate(.[A1]) Then
mois = Month(.[A1])
an = Year(.[A1])
End If
End With
'---analyse---
For Each r In r.Rows
If Month(r.Cells(1)) = mois And Year(r.Cells(1)) = an Then _
Set s = Union(r, IIf(s Is Nothing, r, s))
Next
'---supprime les formules---
If Not s Is Nothing Then
s.Copy s.Parent.[AA1] 'en dehors de la zone de travail
Set s = s.Parent.[AA1].CurrentRegion.Resize(, s.Columns.Count)
s = s.Value
End If
'---export---
On Error Resume Next 'si le fichier destination n'est pas ouvert
With Workbooks(nomfich).Sheets(nomfeuil)
.Rows("2:" & .Rows.Count).Delete 'RAZ
s.Copy .[A2]
Application.Goto .[A1], True
End With
s.EntireColumn.Delete
End Sub