Sub Macro1()
Dim ws As Object
Dim dest As Range
t = Timer()
Application.ScreenUpdating = False
For Each ws In Worksheets
Select Case ws.Name
Case "Consolidation", "Graphs", "listes", "DroitsUsers", "Vierge"
Case Else
Set pl = ws.Range("A1").CurrentRegion
Set pl = pl.Offset(2, 0).Resize(pl.Rows.Count - 2, pl.Columns.Count)
ws.Range("A1").AutoFilter Field:=13, Criteria1:="<>"
Set dest = Sheets("Consolidation").Range("A65000").End(xlUp).Offset(1, 0)
pl.SpecialCells(xlCellTypeVisible).Copy dest
ws.AutoFilter
End Select
Next ws
Application.ScreenUpdating = True
MsgBox Timer() - t
End Sub