Sub Extrait()
Set f = Sheets("Base")
Application.DisplayAlerts = False
Application.ScreenUpdating = False
[m2].Formula = "=MONTH(G2)=$l$1"
For m = 1 To 12
f.[L1] = m
On Error Resume Next
nf = Format(DateSerial(2015, m, 1), "mmmm")
Sheets(nf).Delete
On Error GoTo 0
Sheets.Add After:=Sheets(Sheets.Count) ' création
ActiveSheet.Name = nf
f.[A1:k10000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f.[m1:m2], CopyToRange:=[A1]
Next m
End Sub