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