textbox écrit à droite de la cellule sélectionnée par combobox

Private Sub CommandButton1_Click()
Label2.Visible = True
ActiveCell.Offset(, 1).Value = TextBox1.Value
ActiveCell.Offset(, 2).Value = TextBox2.Value
For i = 1 To 5
  If Controls("CheckBox" & i) Then ActiveCell.Offset(, i + 3).Value = "1"
Next
End Sub

Dim Li As Integer, I As Byte
Private Sub UserForm_Initialize()
  For Li = 3 To Sheets(1).Range("B65536").End(xlUp).Row
    ComboBox1.AddItem Format(Range("B" & Li), "dddd dd mmmm yy")
  Next
End Sub

Private Sub ComboBox1_Change()
  Label2.Visible = IIf(ComboBox1 = "", True, False)
End Sub

Private Sub CommandButton1_Click()
  If ComboBox1 = "" Then Exit Sub
  Li = ComboBox1.ListIndex + 3
  Cells(Li, 3) = TextBox1.Value
  Cells(Li, 4) = TextBox2.Value
  Cells(Li, 11) = TextBox3.Value
  For I = 1 To 5
   If Controls("Checkbox" & I) Then Cells(Li, 5 + I) = 1
  Next
End Sub

checkbox1.value =""