Do Until (Total - Feuil1.Evaluate("Sum(" + CStr(CMT) + ":" + CStr(CMT) + ")")) < Val(SEUIL)
hazard = Int((UBound(Plg) - 1) * Rnd) + 1
Feuil3.Range("A" & Plg(hazard, 2) & ":" + CStr(CMT) + "" & Plg(hazard, 2)).Copy Feuil1.Range("A" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).Offset(1, 0)
Plg(hazard, 1) = ""
Plg(hazard, 2) = ""
hazard = ""
Loop