Private Sub CommandButton1_Click()
Dim Tablo(), F As Worksheet, I&, J&, K&
K = 0
For Each F In Worksheets
If F.Name <> "Synthèse" And F.Name <> "Paramètres feuilles" Then
For I = 4 To F.Cells(Rows.Count, 2).End(xlUp).Row
If F.Cells(I, 2).Value <> 0 And F.Cells(I, 2).Value <> "" And F.Cells(I, 10).Value = "Faux" Then
K = K + 1
ReDim Preserve Tablo(1 To 10, 1 To K)
Tablo(1, K) = F.Name
For J = 2 To 10
Tablo(J, K) = F.Cells(I, J)
Next J
End If
Next I
End If
Next F
With Sheets("Synthèse")
.Range(Cells(4, 2), .Cells(Rows.Count, 2).End(xlUp).Offset(3, 9)).ClearContents
.Cells(4, 2).Resize(UBound(Tablo, 2), 10) = Application.Transpose(Tablo)
End With
End Sub