Sub CherchePrixMin()
Dim DL%, L%, Lar, Lon, Epai, Poi, Prix, Ligne%
Application.ScreenUpdating = False
DL = Range("B65500").End(xlUp).Row
Lar = [H7]: Lon = [I7]: Epai = [J7]: Poi = [K7]
Prix = 32000
For L = 2 To DL
If Cells(L, "B") >= Lar And Cells(L, "C") >= Lon And Cells(L, "D") >= Epai And Cells(L, "E") >= Poi Then
If Cells(L, "F") <= Prix Then
Prix = Cells(L, "F")
Ligne = L
End If
End If
Next L
[K10] = Prix: [K11] = Ligne
End Sub