Sub Consolide()
Dim Nom$, F, L%
Nom = ActiveSheet.Name
L = 10
[E10:QG1000].ClearContents
For Each F In Worksheets
If F.Name <> Nom Then
With Sheets(F.Name)
If .[C7] <> "" And .[B8] <> "ID" And .[C8] <> "" Then
Range(Cells(L, "E"), Cells(L, "QG")) = .Range("AI2:RK2").Value
L = L + 1
End If
End With
End If
Next F
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Range("E6:QG" & [E60000].End(xlUp).Row).AutoFilter
End Sub