Sub post_34()
Dim dLig&, Lig&, i&, Inc&, n&
Dim TabSource As Variant, TabReport As Variant
Dim T!
T = Timer
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("DA")
dLig = .Cells(.Rows.Count, 6).End(xlUp).Row
TabSource = .Range(.Cells(7, 5), .Cells(dLig, 8))
n = Application.CountIf(.Columns("h"), ">0") + 7
TabReport = .Range(.Cells(7, 5), .Cells(n, 8))
End With
For Lig = LBound(TabSource, 1) To UBound(TabSource, 1)
If TabSource(Lig, 4) <> 0 Then
Inc = Inc + 1
For i = 1 To 4
TabReport(Inc, i) = TabSource(Lig, i)
Next i
End If
Next Lig
If Inc > 0 Then Sheets("Résultat").Range("A1").Resize(Inc, 4) = TabReport
MsgBox Timer - T
End Sub