Sub a()
Dim WS As Worksheet, i&, X&
For Each WS In Worksheets
If WS.Name <> "synthèse" Then
For i = 3 To WS.Cells(Rows.Count, "I").End(xlUp).Row
If Application.CountIf(WS.Cells(i, "I").Resize(, 4), ">=4") = 1 Then
With Sheets("Synthèse")
X = .Cells(Rows.Count, "B").End(3)(2).Row
.Cells(X, "B").Resize(, 2).Value = WS.Cells(i, "B").Resize(, 2).Value
.Cells(X, "D").Value = WS.Cells(i, "E").Value
.Cells(X, "F").Value = WS.Cells(i, "G").Value
.Cells(X, "H").Resize(, 4).Value = WS.Cells(i, "I").Resize(, 4).Value
X = X + 1
End With
End If
Next
End If
Next
End Sub