Sub crea()
'///// Les lignes ci-dessous ne servent qu'à créer un exemple
Dim EXEMPLE As Workbook, i, arrWS
arrWS = Array("Feuil1", "2008", "2009", "2010", "2011", "2012", "2013", "2014")
Application.ScreenUpdating = False
Set EXEMPLE = Workbooks.Add(1)
With EXEMPLE
With .Sheets(1)
.Range("A1") = "ENTETE1"
.Range("A1").AutoFill Destination:=Range("A1:L1"), Type:=xlFillDefault
With .Range("A2:L10")
.FormulaR1C1 = "=INT(RAND()*NOW())"
.Value = .Value
End With
.Range("D2:D10") = Application.Transpose(Array("Terminé", "n/c", "Terminé", "n/c", "n/c", "n/c", "n/c", "n/c", "Terminé", "n/c"))
End With
For i = 1 To 7
.Sheets.Add after:=.Sheets(Sheets.Count)
.ActiveSheet.Name = CStr(2007 + i)
Next i
.Sheets(arrWS).FillAcrossSheets .Sheets("Feuil1").Range("A1:L10")
.Sheets(1).Name = "Dossiers Terminés"
.Sheets(1).Rows("2:11").Clear
End With
'////////FIN CREATTION DONNEES////////////////////
'Macro de filtrage
MsgBox "Lancer la macro a (macro récapitulative sur feuille Dossiers Terminés)?"
Call a
EXEMPLE.Sheets(1).Activate
End Sub