J'ai bien essayé mais je n'y arrive pas :'(
Je te mets ma macro ci dessous j'espère que tu pourras éclairer ma lanterne ;)
Sub MB()
Application.ScreenUpdating = False
For Jour = DateSerial(Year(Date), Month(Date), 1) To DateSerial(Year(Date), Month(Date) + 1, 0)
Worksheets.Add.Move...