Macro qui ne marche pas ?

Bonsoir le Forum je n'arrive pas a remplir un cellule avec le ComboBox2, Pourquoi ?
D'avance merci.

Private Sub CommandButton1_Click()
Range("M1") = ComboBox1.Value ' N° du Lot
TextBox4 = Range("R1") 'Libellés
TextBox5 = Range("Q1") 'Lieux
Dim lign As Integer
With UserForm3
TextBox5 = Range("Q1")
lign = .ComboBox1.ListIndex
If TextBox5 = ComboBox2.Value Then MsgBox "Mais cela ne sert a rien !", , "Message BASE"
If TextBox5 = ComboBox2.Value Then Exit Sub
If ComboBox2.Value = "" Then Exit Sub
Worksheets("Base").Cells(1 + lign, 5) = ComboBox2.Value
End With
UserForm3.Hide
Call Protege
End Sub