Combobox saisi dans des cellules spécifiques

Private Sub CommandButton1_Click()
 Derli = Range("A65000").End(xlUp).Row + 1
  ActiveSheet.Unprotect
  For Col = 1 To 4
    Cells(1, Col) = Controls("ComboBox" & Col)
  Next
  ActiveSheet.Protect
End Sub

Dim Cell As Range, Col As Byte

Private Sub UserForm_Initialize()
  For Each Cell In Range("opération")
    ComboBox1.AddItem Cell
  Next
  For Each Cell In Range("libellé")
    ComboBox2.AddItem Cell
  Next
  For Each Cell In Range("affectation1")
    ComboBox3.AddItem Cell
  Next
  For Each Cell In Range("affectation2")
    ComboBox4.AddItem Cell
  Next
End Sub
Private Sub CommandButton1_Click()
 Derli = Range("A65000").End(xlUp).Row + 1
  For Col = 1 To 4
    Cells(1, Col) = Controls("ComboBox" & Col)
  Next
End Sub
Private Sub CommandButton2_Click()
  Unload Me
End Sub

Private Sub CommandButton1_Click()
range("X1") = ComboBox1.value
range("y5") = ComboBox2.value
range("b17") = ComboBox3.value
range("c20") = ComboBox4.value