Ave,
Ajouter une feuille pour chaque jour du mois courant :
Sub zz()
x = Date
déb = DateSerial(Year(x), Month(x), 1)
fin = DateSerial(Year(x), Month(x) + 1, 0)
For i = déb To fin
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(i, 'dd-mm-yyyy')
Next
End Sub
PS : Réfléchis quand même à l'intérêt (surtout aux problèmes ultérieurs d'analyse) qu'il y a à stocker des données dans une multitude de feuilles ...
Une seule feuille devrait suffire !
AV [aaa]