VBA

Bonjour,
Je souhaiterais savoir si vous trouvez l'erreur dans cette procédure :
Private Sub UserForm_Initialize()

TextBox1 = UserForm5.ComboBox1.Value

Dim q As Integer
Dim cherche As Long
cherche = TextBox1.Value
q = Sheets("Archive Cessions").Cells.Find(what:=cherche, LookIn:=xlValues, Lookat:=xlWhole, searchorder:=xlNext).Row
TextBox2 = Sheets("Archive Cessions").Range("D", q)
TextBox3 = Sheets("Archive Cessions").Range("B", q)
TextBox4 = Sheets("Archive Cessions").Range("H", q)
TextBox5 = Sheets("Archive Cessions").Range("F", q)

L'userform en question refuse de s'afficher pour une erreur .

Merci d'avance..

Configuration: Windows XP Internet Explorer 6.0