Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Const modele As String = _
"F:\Data\Feuilles de garde\Versaillesbis\modèle_VRS.xls"
Dim sDossier$, Wkb As Workbook, i&, varAn, X, Y, Deb, Cpt&
Deb = Timer
Workbooks.Open modele
Set Wkb = ActiveWorkbook
varAn = Year(Date)
If varAn = 0 Then Exit Sub
X = DateSerial(varAn, 1, 1)
Y = DateValue("31 décembre " & varAn)
Wkb.Sheets("01").Copy
For i = 0 To Y - X
sDossier = Wkb.Path & "\" & Month(X + i)
With ActiveWorkbook
If Dir(sDossier, vbDirectory) = "" Then MkDir sDossier
.SaveAs sDossier & "\" & Format(X + i, "ddmmmmyyyy") & ".xls"
Cpt = Cpt + 1
End With
Next i
ActiveWorkbook.Close True
Wkb.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Traitement Terminé" & vbLf & _
Cpt & " Classeurs créés" & vbLf & _
"en " & Format(Timer - Deb, "0.00") & " Secondes"
End Sub