Private Sub CommandButton1_Click()
Dim F As Worksheet, TabTemp()
Application.ScreenUpdating = False
For Each F In Worksheets
If F.Name <> "Onglet de Consolidation" Then
TabTemp = F.Range(F.Cells(3, 2), F.Cells(Rows.Count, 12).End(xlUp)).Value
Sheets("Onglet de Consolidation").Cells(Rows.Count, 2). _
End(xlUp)(2).Resize(UBound(TabTemp, 1), 11) = TabTemp
End If
Next F
Application.ScreenUpdating = True
End Sub