Sub Bouton1_Cliquer()
For i = 10000 To 100000
If i >= 10000 Then
l2 = Range("a500").Address
Set r = Range(l2)
t = Split(l2, "$")
l = CInt(t(2)) / 50
k = l / 10
GoTo moins
l1:
End If
Exit Sub
Next i
moins:
For j = k To l
r.Offset(-(l * 50) + j) = j
Next j
GoTo l1
End Sub