Sub Synthese()
Dim t, i&, l&
With Sheets("Data")
t = .Range("a2:d" & .[a65000].End(xlUp).Row)
End With
With Sheets("Synthése")
l = .[a65000].End(xlUp).Row + 1
For i = LBound(t) To UBound(t)
If t(i, 4) > 30 Then .Cells(l, 1).Resize(, 4).Value = Application.Index(t, i, Array(1, 2, 3, 4)): l = l + 1
Next i
End With
End Sub