Sub report()
ligne = 2
tableau = Sheets("Feuil1").Range("A2:G" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
For n = LBound(tableau, 1) To UBound(tableau, 1)
If tableau(n, 5) <> 0 Then
Sheets("Feuil1").Rows(n + 1).Copy Destination:=Sheets("Feuil2").Rows(ligne)
ligne = ligne + 1
End If
Next n
End Sub