Sub Test_Tableau()
Dim T As Variant, i&, J&, K&
With Sheets("Feuil1")
T = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(3).Offset(, 26))
End With
For i = LBound(T, 1) To UBound(T, 1)
If T(i, 4) < > 0 Then
K = K + 1
For J = LBound(T, 2) To UBound(T, 2)
T(K, J) = T(i, J)
Next J
End If
Next i
Sheets("Feuil2").Cells(1, 1).Resize(K, UBound(T, 2)) = T
End Sub