Sub Conso()
Dim ws As Worksheet
Application.ScreenUpdating = False
Worksheets("Consolidation").Range("A4:A65000").EntireRow.Delete
For Each ws In Worksheets
If ws.Name <> "Consolidation" Then
For i = 3 To ws.Range("M65000").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
End Sub