t = Timer()
For Each ws In Worksheets
If ws.Name <> "Consolidation" And ws.Name <> "Graphs" Or ws.Name <> "listes" And _
ws.Name <> "DroitsUsers" And ws.Name <> "Vierge" Then
For i = 3 To ws.Range("A65000").End(xlUp).Row
If ws.Cells(i, 13) <> "" Then ws.Rows(i).Copy Destination:=Sheets("Consolidation").Range("A65000").End(xlUp).Offset(1, 0)
Next i
End If
Next ws
MsgBox Timer() - t