Case à cocher

Private Sub CommandButton1_Click()
Dim dest As Range
Dim i As Byte

Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\Kael\Desktop\Audit.xlsx"
With ActiveWorkbook.Worksheets("Auditeur")
    Set dest = IIf(.Range("A2").Value = "", .Range("A2"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
    dest.Offset(0, 0).Value = TextBox1.Value
    dest.Offset(0, 1).Value = TextBox2.Value
    dest.Offset(0, 5).Value = TextBox3.Value
    For i = 1 To 4
        If Me.Controls("CheckBox" & i).Value = True Then
            dest.Offset(0, 2).Value = Me.Controls("CheckBox" & i).Caption
            Exit For
        End If
    Next i
    des.Offset(0, 4).Value = Format(Now, "dd mmm   hh:nn")
    dest.Offset(0, 3).Value = Workbooks("Mastery.xlsm").Worksheets("Master").Range("A2").Value
    ActiveWorkbook.Close (True)
    Worksheets("Master").Select
    Range("A1").Select
End With
Unload Me
Application.ScreenUpdating = False
End Sub