With Worksheets("COFFRE")
Set CDES = Range("B9:I9")
For i = 1 To CAPCARTON 'Boucles prévues = capacité en carton du véhicule
MAXCDES = Application.WorksheetFunction.Max(CDES)
mem = CDES.NumberFormat
CDES.NumberFormat = "General"
CDES.ShrinkToFit = True
Set c = Nothing
Set c = CDES.Find(MAXCDES, LookIn:=xlValues, SearchOrder:=xlByRows, LookAt:=xlWhole)
CDES.NumberFormat = mem
CDES.ShrinkToFit = False
If Not c Is Nothing Then c.Offset(3, 0).Value = c.Offset(3, 0).Value + 1
Next
Set c = Nothing
Set CDES = Nothing
End With