Sub ventilation()
Dim i&, J&, k&
Dim T As Variant
With Sheets("Feuil1")
T = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(3)(1, 14))
End With
For i = LBound(T, 1) To UBound(T, 1)
If T(i, 10) = "4H" Or T(i, 10) = "4D" Or T(i, 11) = "" 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("Feuil3").Cells(1, 1).Resize(k, UBound(T, 2)) = T
End Sub