Private Sub OK_Click()
Dim ch As control, ligdep As Integer, ligfin As Integer
Dim derligB As Integer, plage As Range, i As Integer
Application.ScreenUpdating = False
ligdep = 6
i = 6
Sheets("Result").Range(Cells(i, 2), Cells(i + 15, 2)).Clear
Sheets("RackUsed").Range("C6:C" & Cells.Rows.Count).Clear
For Each ch In Controls
If ch.Name Like ("CheckBox*") Then
If ch.Value = True Then
Sheets(ch.Caption).Visible = xlSheetVisible
Sheets("Result").Cells(i, 2).Value = ch.Caption
Sheets("Result").Cells(i, 2).Interior.ColorIndex = xlNone
Sheets("Result").Cells(i, 2).HorizontalAlignment = xlCenter
derligB = Sheets(ch.Caption).Range("B" & Cells.Rows.Count).End(xlUp).Row + 1
Set plage = Sheets(ch.Caption).Range("B5:B" & derligB)
ligfin = ligdep + plage.Rows.Count - 1
Sheets("RackUsed").Range("C" & ligdep & ":C" & ligfin).Value = plage.Value
Sheets("RackUsed").Range("C" & ligdep & ":C" & ligfin).HorizontalAlignment = xlCenter
ligdep = ligdep + plage.Rows.Count
i = i + 1
Else
Sheets(ch.Caption).Visible = xlSheetVeryHidden
End If
End If
Next ch
Unload Me
Application.ScreenUpdating = True
End Sub