Sub Consolide()
Dim L%, i%, DL%
L = 1
[A:B].ClearContents
Application.ScreenUpdating = False
For Each F In Worksheets
If F.Name <> "Synthèse" Then
DL = Sheets(F.Name).Range("A65500").End(xlUp).Row
For i = 1 To DL
Cells(L, "A") = Sheets(F.Name).Cells(i, "A")
Cells(L, "B") = F.Name
L = L + 1
Next i
End If
Next F
End Sub