For i = [DebutDeTaPlage] To [FinDeTaPlage]
Set ws_calcul = Sheets("calcul mini et maxi")
Cells(i,2).ShowDetail = True 'Pas certain de l'intérêt de cette ligne
Cells(11,10).FormulaR1C1 = "=LARGE(C[-1],1)"
val = Cells(11,10).Value
ws_calcul.Cells(i,5) = val
Next