Private Sub CommandButton3_Click()
ActiveSheet.Unprotect
Range('A65536').End(xlUp).Offset(1, 0).Select
If CheckBox2 = True Then
ActiveCell = Format(TextBox2.Value, 'mm/dd')
ActiveCell.Offset(0, 2) = CheckBox2.Caption
ActiveCell.Offset(0, 1) = 'Prélvt'
ActiveCell.Offset(0, 4) = TextBox3.Value
End If
Range('A65536').End(xlUp).Offset(1, 0).Select
If CheckBox3 = True Then
ActiveCell = Format(TextBox2.Value, 'mm/dd')
ActiveCell.Offset(0, 2) = CheckBox3.Caption
ActiveCell.Offset(0, 1) = 'Prélvt'
ActiveCell.Offset(0, 4) = TextBox4.Value
End If
Range('A65536').End(xlUp).Offset(1, 0).Select
If CheckBox4 = True Then
ActiveCell = Format(TextBox2.Value, 'mm/dd')
ActiveCell.Offset(0, 2) = CheckBox4.Caption
ActiveCell.Offset(0, 1) = 'Prélvt'
ActiveCell.Offset(0, 4) = TextBox5.Value
End If
Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Protect
Unload News
End Sub