Sub test()
Dim fs, f, s, adresse
Set fs = CreateObject("Scripting.FileSystemObject")
adresse = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Set f = fs.GetFile("" & adresse & "")
s = f.datecreated
If Format(s, "mm") = Format(Now, "mm") - 1 Then
For Each cellule In Sheets("feuil1").Range("L2:L5")
L = Sheets("feuil2").Range("L" & Rows.Count).End(xlUp).Row
If cellule = "Mensuel" Then Range(Cells(cellule.Row, 1), Cells(cellule.Row, 11)).Copy Sheets("feuil2").Range("A" & L + 1)
Next cellule
End If
If Format(Now, "mm") = 1 Or Format(Now, "mm") = 4 Or Format(Now, "mm") = 7 Or Format(Now, "mm") = 10 Then
For Each cellule In Sheets("feuil1").Range("L2:L5")
L = Sheets("feuil2").Range("L" & Rows.Count).End(xlUp).Row
If cellule = "trimestriel" Then Range(Cells(cellule.Row, 1), Cells(cellule.Row, 11)).Copy Sheets("feuil2").Range("A" & L + 1)
Next cellule
End If
End Sub