Dim I As Integer, J As Integer, PremLigne As Integer
For I = 21 To 581 Step 14
If Cells(I, 2) = "" Then Exit For
Next I
If I = 595 Then
PremLigne = Evaluate("MATCH(MIN(B:B),B:B,0)") - 1
Else
PremLigne = I - 1
End If
For I = 1 To 10
For J = 1 To 8
Cells(PremLigne + I, 4 + J) = Controls("T" & Format(I, "00") & Format(J, "00"))
Next J
Next I