Sub generer_test_II()
Dim ArrWks, ws As Worksheet, ligne As Long
ArrWks = _
Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
For Each ws In Sheets(ArrWks)
ws.Cells.ClearContents
With ws.Range("A3:A" & Int((Rnd * 30) + 5))
.Formula = "=(TODAY()+(ROW()*" & ws.Index & "))"
.NumberFormatLocal = "jj/mm/aaaa"
.Offset(, 1).Resize(, 10).Formula = "=" & ws.Index & "&CHAR(64+COLUMN())&ROW()"
End With
Next
End Sub
Sub consolider_Et_Trier()
Dim ArrWks, ws As Worksheet, ligne As Long
ArrWks = _
Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
With Worksheets("consolidation")
.Rows("6:" & .Rows.Count).ClearContents
For Each ws In Sheets(ArrWks)
ws.AutoFilterMode = False
ligne = ws.Cells(Rows.Count, "A").End(xlUp).Row
ws.Range(ws.Cells(3, "A"), ws.Cells(ligne, "K")).Copy
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Next ws
With .Range("A5").CurrentRegion
.Sort .Cells(5, 1), xlAscending, Header:=xlYes
End With
End With
End Sub