Sub Volumes()
Feuil28.Range("A4:A8").ClearContents
Feuil5.Select
For j = 1 To 5
Maximm = Feuil5.Cells(9, 14)
For i = 9 To 250
If (Feuil5.Cells(i, 14) > Maximm) And Feuil5.Cells(i, 14) <> "Volume" And Feuil5.Cells(i, 2) <> Feuil28.Cells(4, 1) And Feuil5.Cells(i, 2) <> Feuil28.Cells(5, 1) And Feuil5.Cells(i, 2) <> Feuil28.Cells(6, 1) And Feuil5.Cells(i, 2) <> Feuil28.Cells(7, 1) And Feuil5.Cells(i, 2) <> Feuil28.Cells(8, 1) Then
Maximm = Feuil5.Cells(i, 14)
Feuil28.Cells(j + 3, 1) = Feuil5.Cells(i, 2)
End If
Next i
Next j
End Sub